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INF0RMAT1E. 

De 6502 Kenner is een uitgave van de KIM 
Gebruikersclub Nederland. Deze vereniging 
is volledig onaf hankeli jk , is statutair 
opgericht en ingeschreven bij de Kamer van 
Koophandel en Fabrieken voor Hollands 
Noorderkwartier te Alkmaar, onder nummer 
634305. 

Het doel van de vereniging is het bevorde- 
ren van de kennisu i t wi s s e ling tussen 
gebruikers van computers die zijn opge- 
bouwd rond een microprocessor uit de 6500- 
familie. Voorbeelden hiervan zijn onder 
andere: Elektuur EC-65, Commodore 64, 
Apple ][, Elektuur Junior, Atari 600 en 
800. 

De eerder genoemde kennisuitwisseling komt 
onder andere tot stand door 6 maal per 
jaar de 6502 Kenner te publiceren, door de 
organisatie van landelijke bi j eenkomsten 
voor de leden, het instandhouden van een 
sof twarebibliotheek op cassette, floppy 
disk en papier en het beschikbaar stellen 
van een Bulletin Board. 

Landelijke bijeenkomsten: 

Deze worden gehouden op bij voorkeur de 
derde zaterdag van de maanden januari, 
maart, mei, September en november. De 
exacte plaats en datum worden steeds in de 
6502 Kenner bekend gemaakt in de rubriek 
Uitnodiging. 

Bulletin Board: 

Voor het uitwisselen van mededelingen, het 
stellen en beantwoorden van vragen en de 
verspreiding van software wordt er door de 
vereniging een Bulletin Board beschikbaar 
gesteld. Dit Bulletin Board valt onder de 
verant woordeli jkheid van e§n van de 
bestuursleden en wordt bediend door een 
zgn. Sysop. 

Software Bibliotheek: 

Voor het beheer van de Software Biblio- 
theek streeft het bestuur er naar zgn. 
Software Coordinators te benoemen. Hierbij 
wordt gedacht aan een drietal coordina- 
tors; voor EC-65(K) en Junior met OHIO 
OS-65D, £§n voor DOS-65 en §gn voor 
diverse andere systemen zoals onder andere 
Elektuur Junior. 

Het Bestuur: 

Het bestuur van de vereniging wordt ge- 
vormd door een dagelijks bestuur bestaande 
uit een voorzitter, een secretaris en een 



pennigmeester en een viertal gewone leden. 

Voorzitter : 

Rinus Vleesch Dubois 
Florence Nigthingalestraat 212 
2037 NG HAARLEM 
Telefoon 023-330993 

Secretaris : 

Gert Klein 
Diedenweg 119 
6706 CM WAGENINGEN 
Telefoon 08370-23646 

Penningmeester : 

John van Sprang 
Tulp 7 1 

2925 EW KRIMPEN A/D 1JSSEL 

Leden: 

Adri Hankel 
Willem Kloosstraat 32 
7606 BB ALMELO 
Telefoon 05490-51151 

Erwin Visschedijk 
Dillelaan 11 
7641 CX W1ERDEN 
Telefoon: 05496-76764 

Gert van Opbroek 
Bateweg 60 
2481 AN WOUBRUGGE 
Telefoon 01729-8636 

Nico de Vries 
Mari Andriessenrade 49 
2907 MA CAPPELLE A/D IJSSEL 
Telefoon 010-4517154 

Ereleden: 

Naast het bestuur zijn er een aantal ere- 
leden, die zich in het verleden bijzonder 
verdiensteli jk voor de club hebben 
gemaakt : 

Erevoorzitter : 

Siep de Vries 

Ereleden : 

Mevr. H. de Vries van der Winden 
Anton Mueller 
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De 6502 Kenner: 

De 6502 Kenner wordt bij 
verschijnen gratis toege- 
zonden aan alle leden van 
de KIM Gebruiker sclub 
Nederland. De kopij voor 
het blad dient bij voor- 
keur van de leden afkom- 
stig te zijn. Alle kopij 
wordt door de redactie op 
bruikbaarheid en publica- 
tiewaarde beoordeeld. Deze 
twee criteria, in samen- 
hang met de actualiteit, 
bepalen of en zo ja 
wanneer het stuk gepubli- 
ceerd wordt. De redactie 
streeft er naar de kopij 
zoveel mogelijk in zijn 
oorspronkeli jke vorm te 
plaatsen, Nederlandstalige 
kopij wordt daarom in 
principe niet naar een 
andere taal vertaald. De 
redactie streeft er naar 
een Nederlandstalig blad 
te maken doch het staat de 
auteur vrij een artikel 
geheel of gedeeltelijk in 
een andere taal te schrij- 
ven. 

Helaas kan de redactie, 
noch het bestuur, enige 
aansprakeli jkheid aanvaar- 
den voor de toepassing(en) 
van de g e p u b 1 i c e e r d e 
kopij . 

Verschijningsdata: 

De 6502 Kenner verschijnt 
op de derde zaterdag van 
de maanden februari, 
april, juni, augustus, 
oktober en december. 

Redactie. 



De redactie wordt gevormd 
door : 

De bestuursleden. 

Redactieadres : 

Gert van Opbroek 
Bateweg 60 
2481 AN Woubrugge 
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REDACTI ONEEL . 

Tegen de tijd dat u dit leest, is het 
ongeveer een maand geleden dat ik dit 
geschreven heb. Dat betekent dat zaken die 
nog actueel zijn, dan al weer enigzins in 
het vergeethoekje geraakt zijn. Toch denk 
ik dat het zinvol is een paar zaken uit 
het recente verleden te bekijken. 

In de eerste plaats is er in februari 
nummer 54 van de 6502 Kenner uitgekomen. 
Het was het eerste nummer dat volledig 
door mij samengesteld en geplakt is. Wei, 
dat was te zien. Enkele leden dachten dat 
ze al dronken waren toen ze met het blad 
begonnen te lezen. Dat was echter niet zo, 
de teksten en tekeningen waren niet erg 
strak. Ik denk dat het goed is eens uit te 
leggen hoe dat gekomen is. 

Artikelen werden per kolom af gedrukt op 
een letterwielprinter. Deze stroken zijn 
toen op een vel A4 geplakt, samen met de 
bi jbehorende tekeningen. Verder zijn er op 
dat vel de kopjes geplakt waarna met 
wrijfletters de p agina-nummering aange- 
bracht werd. Hierna zijn de vellen A4 twee 
a an twee aanelkaar geplakt en gekopleerd 
op een vel A3. Deze fungeerde als master 
voor de drukker. Nu heeft bij het fotoko 
pieren het orgineel niet voldoende vlak 
gelegen. Dat lag aan het feit dat bij het 
plakken te veel lijm gebruikt is en dat de 
stukken rondom vastgelijmd waren (het zou 
tenslotte zonde zijn als er kopij weg zou 
waaien) . 

Bij deze 6502 Kenner heb ik. voor het plak- 
ken veel minder lijm gebruikt en de stuK 
ken ook slechts op een paar hoekjes vast 
geplakt. Bovendien heb ik de beide kolom- 
men voor een pagina rechtstreeks op het 
juiste formaat afgedrukt zodat meestal 
alleen de kopjes geplakt hoef den te wor 
den. Originele listings en figuren zijn 
ook met zo weinig mogelijk lijm geplakt. 
Wei ben ik van plan van een dergelijke 
pagina nog een fotokopie op A4 te maken om 
deze bij de drukker in te leveren. Ik hoop 
dat hierdoor het uiterlijk van het blad 
nog iets verbetert. 

Een tweede punt waarover ik iets moet 
schrijven is het volgende. Ik wil graag 
een blad uitgeven met een zo divers moge- 
lijke inhoud. Ik ben echter niet in staat 
in mi jn eentje over van alles en nog wat 
te schrijven en het maken van programma s 
voor EC-65 en DOS-65 kan ik helemaal niet 
omdat ik niet een dergelijk systeem tot 
mijn beschikking heb (ik heb daar overi 
gens ook geen belang bij)» Dat betekent 
dat ik voor machine-af hankeli jke zaken 



volledig af hankeli jk ben van u! Ik roep 
dan ook iedereen op kopij in te zenden 
waarbij ik voornamelijk denk aan program- 
matuur en hardware voor de EC-65(K) omdat 
ik toch wat gemakkeli jker toegang heb tot 
DOS— 65 spullen. Het feit dat er in dit 
blad geen EC-65 voorkomt, wordt enkel en 
alleen veroorzaakt door het feit dat er 
geen kopij beschikbaar is. Wei weet ik dat 
de software coordinators voor dit systeem 
begonnen zijn aan een inventarisatie van 
software en operating systemen en. ik hoop 
dat er spoedig weer een zeer actieve EC- 
6 5(K) groep binnen de club is. Kortom, 
hebt u voor uw systeem iets ontwikkeld, 
laat het mij dan op zijn minst even weten 
zodat we er gezamelijk misschien een arti- 
keltje over kunnen schrijven. Een voor- 
beeld van een dergelijke samenwerking 
vindt u in het verhaaltje van de heer P. 
de Vries over de CRT9128. 

Dan een volgend punt. Zoals in nummer 54 
verteld is, bezit de club een Bulletin 
Board. Dit systeem draait momenteel heel 
aardig en wordt door een aantal mensen 
(waaronder ikzelf) zeer frequent bezocht. 
Het blijkt dat er via dit systeem snel 
contact gelegd kan worden tussen mensen 
met gelijke interresse's of problemen* 
Bovendien blijkt dat auteurs van software 
via het Bulletin Board meldingen doen van 
aanvullingen en verbeteringen van hun 
producten . 

Ik wil dit systeem een centrale plaats 
geven in de verspreiding van software. Dat 
betekent dat elk in de 6502 Kenner gepu- 
bliceerd programma bij verschijnen van de 
6502 Kenner in principe ook op het Bulle- 
tin Board staat waar het dan door leden 
kosteloos afgehaald kan worden. Voor de 
mensen die geen modem hebben, kan men de 
software ook via de sof t warecobrdinat or 
krijgen en eventueel via de redactie. 

Hoe de preciese procedure wordt voor de 
verspreiding via tape of diskette, zal ik 
in de volgende 6502 Kenner beschrijven. 
Uitgangspunt wordt hierbij wel dat mate 
rialen tegen kostprijs verspreid worden. 

Tenslotte heb ik nog een oproep. Ik denk 
dat het goed is, dat de tekst in de 6502 
Kenner zo hier en daar verlucht wordt met 
een plaatje. Het lijkt mij wel leuk in het 
blad een soort strip te hebben met als 
hoofdpersoon een chipje (sji.ppie?). Nu 
komt echter het probleem dat ik niet kan 
tekenen. Wie helpt?? Andere plaatjes zijn 
ook welkom. 

Verder veel hobbygenot aan 6502 Kenner 55. 
Uw redacteur, Gert van Opbroek 
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VAN DE VOORZITTER 

Was u ook van de partij, op de laatste 
bijeenkomst te Geldrop? Nee! dan heeft u 
een kans gemist om gezelLig met uw mede 
systeem-bouwe rs van gedachten te wisse- 
Len of mogeLijk een probleem te heLpen 
oplossen. De volgende bijeenkomst krijgt 
u deze kans wederom, dus komt u ook, en 
neem als mogeLijk uw systeem mee! Hoe 
vindt u overigens de inhoud en kwaliteit 
van de Laatste 6502-kenne rs? Onze nieuwe 
redakteur Gert van Opbroek heeft dat 
bijna in z,n eentje gekLaard, knap he 
Maar toch zou het bestuur graag een 
beroep op uw medewerking wiLLen doen, 
dus biedt onze redakteur uw huLp, door 
kopij in te sturen (u kunt het best) of 
door u op te geven aLs redaktie medewer- 
ker. Voor dit Laatste kunt u kontakt op- 
nemen met onze redakteur. Heeft u aL 
kontakt gehad met het bu L Le ti n-boa r d? 
Ook daar kunt u uw kopij of programma- 
tuur naar toe sturen. Overigens over 
communicatie gesproken, wist u dat dit 
een van de sneLst groeiende technieken 
is. in 1989 wordt onze nationaLe PTT ge- 
pri vati seerd, ditzaL mede tot gevoLg 
hebben dat de concurrentie fLink zal 
toenemen, men raakt nameLijk de monopoLy 
positie kwijt. Ik denk dat dit de ont- 
wikkeLing sterk ten goede zaL komen en 
daardoor mogeLijk ook de prijzen die de 
consument moet betaLen. SteL u eens voor 
dat de kosten voor modem gebruik door 
iedereen betaaLbaar zou zijn, dan opent 
dit toch ongekende moge L i j kheden voor 
aLLe computer hobbyisten. Deze Lage 
kosten zuLLen ondermeer bereikt kunnen 
worden door verbetering van het kabeL- 
netwerk, denk maar aan gLasvezeL-kabeLs 
of misschien zeLfs door kabeLs met su- 
er geLeiding, in ieder gevaL zaL de 
audrate (dat is de sneLheid waarmee 
data wordt overgestuurd) fLink omhoog 
moeten worden geschroefd. Uit een en ana 
er bLijkt, dat aLs men zich voor de tech 
niek intereseert, men nog veeL zaL beLe- 
ven. Ook het bestuur van uw cLub stuit 
regeLmatig op dit onderwerp. Tijdens de 
bestuurs vergaderi ngen wordt er veeL ge- 
brainstormt over de toekomst, het vaLt 
niet mee om steeds weer wat nieuws te 
bedenken voor onze Leden, maar ander- 
zijds is het best een uitaaging. Krijgt 
u toevaLLig of bewust ook een goed idee 
wat bruikbaar is voor onze cLub, Laat 
mij dat dan even weten. Ik wens u veeL 
leespLezier met deze uitgave van onze 
6502 kenner, en zie u graag terug op de 
komende bijeenkomst. 



Rinus VLeesch Dubois. 



D0S65 COORDINATOR 

Er heeft zich een zeer enthousiaste DOS65 
gebruiker gemeld als nieuwe coordinator. 
Vanaf nu kan iedere D0S65 gebruiker 
terecht bij: 

Jan Derksen 

Cp. Soetel ief straat 41 
1785 CC Den Helder 
tel. 02230-35002 

Aangezien Jan momenteel nog in 
militaire dienst is, is hij door de week 
telefonisch niet te bereiken. U kunt 
natuurlijk altijd schrijven. 

Jan zal zich bezighouden met: 

de distributie van hardware en 
software van DOS65 artikelen, 
software en hardware ondersteu- 
ning van mede DOS65 gebruikers , 
het onderhouden van contacten 
met DOS65 gebruikers. 

De D0S65 coordinator onderhoudt 

contacten met alle D0S65 gebruikers. Dit 
contact komt van beide zijden. Als u van 
plan bent een min of meer groot project 
te beginnen, bv. het ontwerpen van een 
nieuw stuk hardware of het schrijven van 
een brok software, laat dat de DOS65 
coordinator dan ook weten. Misschien zijn 
anderen er al mee bezig. U kunt dan 
eventueel gaan samenwerken. Zo wordt 

voorkomen dat twee keer het wiel wordt 
uitgevonden en dat er op meerdere 
plaatsen veel energie in dezelfde zaken 
wordt gestoken. 

Jan weet zeer veel van het DOS65 
systeem, zodat ik hem dit werk zeer goed 
toevertrouw. Ik wens hem veel succes toe 
bij dit dankbare werk. 

Ik hoop dat ik nu meer tijd zal 

overhouden voor andere D0S65 dingen die 
ik ook leuk vindt. 

Helaas misschien voor D0S65 heb ik 
ook nog zeer veel andere hobby’s waar ik 
ook graag wat aan wil doen. De reden 
waarom ik vroeger ooit eens een Junior 
heb gekocht was mijn ideaal om een trein- 
emplacement te automatiseren. Door 
ruimtegebrek is dat er nooit erg van 

gekomen. Nu heb ik wel de ruimte en 

begint mijn bloed sneller te stromen bij 
de gedachte aan computer gestuurde 
snelheidsregel ingen , blokbeveil igingen , 

dienstregelingen enz. 

Erwin Visschedijk. 
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PITNODIGING CLUBBI JEENKOMST 

Datum: 28 mei 1988 (een week later dan 

normaal i.v.m. Pinksteren) . 
Lokatie: Kerkgebouw "DE BRON" 

Hobbemaiaan 1 

2923 XD Krimpen a/ d IJssel 
tel: 01807-16287 

Entreeprijs: fl. 10, — 

Routebeschrijving 

AUTO: 

Komende uit de richting Utrecht. Volg de 
autoweg Utrecht-Rotterdam-Dordrecht tot de 
afslag Cappelle a/ d IJssel voor de v. 
Brienenoordbrug. Afslag reehtsaf richting 
Cappelle a/d IJssel voert linksaf onder de 
weg naar de v. Brienenoord door. Houdt 
richting Cappelle a/d IJssel aan tot de 
rotonde Cappelse plein, waarop (zie 
ri cht ingaanwij zers) reehtsaf richting 
Schoonhoven en Krimpen a/d IJssel. Deze 
weg voert over de Algrabrug. Een stukje 
verder ontmoet u stoplichten. Ga hier 
linksaf de Nieuwe Tiendweg op en volg deze 
tot de volgende rotonde. Ga hier reehtsaf 
de Burg. Aalberslaan op, dan de eerste 
zijstraat rechts, de Jan van Goyenstraat 
in, dan de eerste zijstraat rechts, de 
Hobbemaiaan, in tot aan het eind. Daar 
kunt u parkeren. Aan de rechterhand het 
vlakke kerkgebouw (zie pijl op kaartje bij 
no. 30). 

Komende uit de richting Amsterdam. Volg. de 
A4 Amsterdam-Rotterdam. Knooppunt Leid- 
schendam passeren. Verder richting Dord- 



recht via v. Brienenoordbrug aanhouden. 
Voor de v. Brieneoordbrug afslag Cappelle 
a/d IJssel nemen. Vervolgens als hierbo- 
ven. 

Komende uit de richting Rotterdam of Dord- 
recht. Richting Cappelle a/d IJssel aan- 
houden en verder als bij de eerste be- 
schrijving . 

OPENBAAR VERVOER: 

Per trein naar station Rotterdam- 
Alexanderpolder. Hiervandaan met de Metro 
naar de Cappelse brug en verder met de bus 
(o.a. lijn 98) naar Krimpen a/d IJssel. 
Uitstappen bij het busstation Krimpen a/d 
IJssel. Vanaf het busstation (nr. 11 op 
plattegrond) linksaf de Nieuwe Tiendweg^op 
en aan de tweede straat rechts vindt u "De 
Bron" . 

Programma: 

9:30 Zaal open met koffie 
10:15 Opening 

10:30 Voordracht van Ruud Uphoff: 

De kwaliteitszorg van software. 
11:30 Forum en markt 
12:00 Lunchpauze 

Aansluitend het informele gedeelte 
bedoeld om kennis, ervaring Public 
Domain en eigen ontwikkelde soft- 
ware uit te wisselen met uw medele- 
den. BRENG DAAROM OOK UW EIGEN 
SYSTEEM MEE! (En vergeet de snoeren 
niet .....) 

17:00 Sluiting. 
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DOS65-Corner 



********************* d 0 S ■ 6 5 V2.01 ********************** 

* * 

* Vertaalprogramma van printcodes in een EDITFILE naar * 

* een PRINTFILE voor alle EPSON achtige printer. * 

* * 
******************************************************************* 



Door: H.A.J.Quast 

Dekemastate 15 
1275 CM Huizen N.H. 
tel. 02152-54905 



Sinds enige tijd ben ik in het bezit van een PHILIPS NMS-1431 matrix 
printer. Dit is een printer die bedoeld is als uitbreiding voor een 
MSX-computer . De karakterset van deze printer komt ongeveer overeen 
met de standaard karakterset van de epson printers. 

Buiten de gewone ascii-tekens, die deze printer kan weergeven, bezit 
de printer ook de mogelijkheid om een hele reeks van bijzondere 
schrijf tekens weer te geven. Deze reeks van tekens begint met de 
ascii-waarde $80 t/m $FF en vervolgens van 1,40 t/m 1,5F. Als we de 
Epson en Philips karakterset boven de $7F met elkaar vergelijken, 
blijkt er grote overeenkomst te zijn. Alleen de groep tekens boven 
de $FF bestaan niet bij de Epson printers en de grafische tekens 
kloppen niet. 

Mijn bedoeling was nu om al deze bijzondere karakters op te kunnen 
geven in de edit-file. 

De volgende punten waarmee ik zat waren: 

- In de edit-file kunnen geen tekens boven de $7F worden ingevoerd, 
zodat het gebruik van b.v. tekens als een 'e' met puntjes of met 
het schuine streepje erop niet mogelijk is. 

Een oplossing voor dit probleem was een vereenvoudigde versie van 
het hier beschreven programma die met ingetypte hex-codes werkte. 
Maar het nadeel hiervan was dat de file door al de hex-codes 
slecht leesbaar werd. 

Een volgend probleem was: 

- Als ik een file had aangemaakt waarin de speciale printerhex-codes 
zaten, kon ik deze niet zomaar naar iemand anders toesturen die 
met een ander type printer werkte. Het leek mij nuttig om een 
programma te maken waarmee dit voor een aantal type printers wel 
mogelijk was. 



Beschrijving van het programma "CONVPRINT" 



In dit programma wordt een speciale file (Printer-Conversie-File) 
van disk in het geheugen in een tabel geladen. 

Deze Printer-Conversie-File (PCF.DAT) moet op de systeem-disk staan 
en met de editor worden aangemaakt. 
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De opbouw van de file moet als volgt zijn: 

Het eerste karakter op een regel is het teken dat in de text-file 
staat als vervanging van een bepaald printersymbool . Vervolgens moet 
er een # teken staan waarna het programma de eerste twee 
daaropvolgende karakters leest en deze samenvoegt tot een hexa- 
decimaal karakter. Hierachter mag commentaar gezet worden, b.v. wat 
voor een soort teken het is. Dit commentaar moet wel voorafgegaan 
worden door een (;) teken. Ook is het mogelijk om meerdere 
letterdef inities achter elkaar te zetten, gescheiden door 1 of 
meerdere spatie's. 

Regels met alleen maar commentaar zijn ook toegestaan mits deze wel 
voorafgegaan worden door het teken (;). 

Voor de edit-vervangcodes kunnen alle asciikarakters worden gebruikt 
behalve het teken ; en het teken #. Wanneer de routine gebruikt 
wordt die geschikt is voor het werken met de Philips printer 
NMS-1431 dan mag ook het cijfer 1 niet gebruikt worden. 

Om het programma niet te traag te maken bij het opzoeken van de 
vervangingscode is de tabel op asciicode gesorteerd. 

De gegevens uit de file worden op de volgende manier behandeld: 
Het eerste karakter dan gelezen wordt als Editor vervang-code wordt 
gebruikt als index-waarde voor de tabel PCFTAB. Vervolgens leest het 
programma verder totdat deze de printer-code heeft samengesteld. 
Deze waarde wordt in de tabel PCFTAB gezet op de plaats aangewezen 
door de index. 



Aanmaken tekst-file. 



In de EDIT-mode wordt op de normale manier de tekst ingetypt. 
Wanneer er nu een speciale printcode gebruikt moet worden dan gaat 
dat als volgt: 

Op de plaats van de speciale code typt men <CTRL+V>R gevolgd door de 
asciivervangcode van de printcode. 

Voorbeeld: 

Er is maar <CTRL+V>Re<CTRL+V>Ren IC kapot. 



Nadat de inputfile gesloten is wordt het programma "CONVPRINT" 
aangeroepen met: 

CONVPRINT <inputf ile> <outputfile> 

(b.v. CONVPRINT TEKST.DOC TEKST. PRI) 

Het programma leest nu een kar. uit de inputfile en test of deze de 
waarde <CTRL+V>R heeft (hex $12). Wordt deze code gevonden dan wordt 
de hexwaarde van het daarachterstaande karakter gebruikt om als 
index te dienen voor de tabel PCFTAB. 

Het byte dat hiermee aangewezen wordt is de printercode van het 
ascii-vervangteken. 

Als het controlteken ($12) niet gevonden wordt, schrijft het 
programma de gelezen ascii-code direct door naar de outputfile. 



8 



IE) IS 



(E>3S5 nsiSK5rE§risi^> 




DOS65-Corner 



Door de outputfile uit te printen met ">P Plist <optie> <filename>" 
of met " PRINT {voor printen vanuit de spooler)" wordt het gewenste 
resultaat verkregen. 

Voor het werken met de printer NMS-1431 van PHILIPS is er een 
extra routine ingebouwd die het mogelijk maakt om printercode ' s die 
beginnen met l,xx (waarbij xx een getal is tussen de $40 en de 
$5F) ook uit te printen. De code in de editfile moet dan als volgt 
zijn: 

Voorbeeld: 



Printen van drie maal het muzieknoot je. 



intypen : <CTRL+V>R14E <CTRL+V>R14E <CTRL+V>R14E 



in de input file 
staat de code : 

het programma 
vertaald dit in : 



$12, $31, $34, $45 $12, $31, $34, $45 $12, $31, $34, $45 



I \ / 

I \/ 

$01, $4E 



! \ / 
I \/ 
$01, $4E 



I \ / 

I \/ 

$01, $4E 



Deze vertaalde code wordt in de outputfile weggeschreven. 



Enkele opmerkingen: 



Het programma leest tijdens het vertalen steeds een sector van de 
inputfile. Na de genoemde vertaalslag wordt de data naar de 
outputfile weggeschreven. Wanneer we nu een erg lange file moeten 
vertalen is het verstandig om de ene file op de systeemdisk te 
zetten en de andere file op de userdisk. Het voordeel hiervan is dat 
de koppen van de diskdrive zich minder behoeven te verplaatsen. Ze 
blijven op de plek wachten waar ze gestopt zijn totdat de volgende 
sector gelezen of beschreven moet worden. Zouden we dezelfde file 
alleen op de user/systeemdisk vertalen dan moet de kop van de 
diskdrive zich voortdurend tussen de lees en de schrijf sector 
verplaatsen. 

Een tweede opmerking is de volgende: 

Nadat de file geconverteerd is mag deze niet meer via de editor 
bewerkt worden. De reden hiervan is de volgende: 

Stel dat we de volgende code in de inputfile hebben gezet: 

<CTRL+V>Re deze code geeft op de printer een e met een 

schuin streepje. 

In de inputfile staat de ascii-code $12, $65 

I 

I 

het programma vertaald dit naar $82 

Wanneer nu deze file opnieuw in de editor geladen wordt dat zal de 
code $82 verwijderd worden omdat hij boven de hexwaarde $7F is. 
Met als gevolg dat het gewenste karakter niet afgedrukt wordt. 
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Als derde wil ik nog even wijzen op het gebruik van de utilitie 
LIST. Aangezien deze utilitie alle karakters die niet tot de 
standaardasciikarakterset behoren wegfilterd is deze dus nxet te ge 
bruiken voor het uitprinten van de outputfile. 

Wanneer er achter een printcode een ongeldige ascii-waarde staat dan 
stopt het programma met vertalen, sluit de outputfile en print op 
het scherm een foutmelding met daaronder de tekst vanaf de plaats 
waar de fout ontdekt is tot aan de eerstvolgende CR. 

De procedure van werken kort samengevat: 

- openen inputfile met: EDIT 

- file met speciale char, aanmaken in de editor. 

- inputfile sluiten. 

- aanroepen van programma CONVPRINT. 

- uitprinten van de outputfile. ( >P PLIST optie outputfile } 

( PRINT optie outputfile ) 

- eventueele wijzigingen aanbrengen in de inputfile. 

- en opnieuw vertalen. 



Uitwisselbaarheid van de edit-vervangcode. 



Om de edit-vervangcode en de bijbehorende printercode tussen ver 
schillende gebruikers onderling uitwisselbaar te maken, is het van 
belang dat de inhoud van de file PCF.DAT gestandariseerd wordt. 
Ik heb zelf een poging gedaan maar het lijkt mij nuttig als 
geinteresseerde hierover ook hun mening geven zodat er mischien een 
standaardfile gemaakt kan worden. 



Voorbeeld opbouw van de PCF.DAT file. 



Printer-code file voor de EPSON printers 



f # 9F 


f gulden teken 


? # A8 


vraagteken op zijn kop 


" # F7 


ongeveer teken 


* # EC 


oneindig 


/ # F6 


Deelteken 


W # FB 


Wortel 


2 # AB 


Breukteken 1/2 


4 # AC 


Breukteken 1/4 


+ # FI 


plus/min teken 


0 # ED 


lege verzameling 


{ # EE 


element verzameling 


1 # EF 


doorsnede 


= # FO 


equivalent met 


> # F2 


> = 


. # AF 


vele malen groter 


< # F3 


< = 


, # AE 


vele malen kleiner 



A # 84 
a # AO 
E # 89 
e # 82 
0 # 99 

0 # A2 

1 # 8B 



puntjes op de a 
streepje op de a 
puntjes op de e 
streepje op de e 
puntjes op de o 
streepje op de o 
twee puntjes op de i 



B 

G 

d 

N 

t 

u 

P 

S 

s 

T 

F 

h 



# EO ; alf a 

# El ; Beta 

# E2 ; Gamma 

# EB ; Delta kleine letter 

# EE ; Epsilon 

# E9 ; theta 

# E6 ; mu teken 

# E3 ; Pi 

# E4 ; hoof dletter sigma 

# E5 ; kleineletter sigma 

# E7 ; Tau 

# E8 ; fi 

# EA ; ohm-teken 

Einde printer-code file 
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OOAO 

00A0 

OOA1 

00A2 

OOA3 

00A4 



0012 



C023 

C03B 

C03E 

D03F 

D036 

D048 

DOOO 

D009 

D0B7 



1000 
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************** D 0 S - 6 5 V2.01 ************** 

* 

* Vertaalprogramma van EDITFILE naar PRINTFILE 

* voor de EPSON printer. 

* 

* In dit programma wordt een speciale conversie-f ile 

* van disk in het geheugen gelezen. De inhoud van de file 

* wordt in een tabel opgeborgen. In de tabel staan de 

* vervaningscodes van de letters die in de tekst staan 

* achter de speciale code. Om het programma niet te traag 

* te maken bij het opzoeken van de vervangingscode is de 

* tabel op ascii-code gesorteerd. 

* De gang van zaken is als volgt: 

* Het speciale printerkarakter wordt gelezen uit de file. 

* Vervolgens kijkt het programma wat het volgende teken is. 

* De asciiwaarde van dit teken is een index voor de tabel. 

* Het nadeel is dat de tabel meestal langer is dan strikt 

* noodzakelijk maar het voordeel is dat het vergelijken 

* en opzoeken veel sneller gaat. 

* 

***************************************************** 



Start commando: CONVPRINT <inputfile> <outputfile> 
Voor info type: HELP CONVPRINT 



Pagina nul adressen 





ORG 


$00A0 




FXLEIN 


RES 


1 


Inputf ilenummer 


FILEOUT 


RES 


1 


Outputfilenummer 


PCFILE 


RES 


1 


Conversief ilenummer 


DATASAV 


RES 


1 


Saveadres data 


BUFINDX 

• 


RES 


1 


Conversiebuf fer-index 


r 

SUBLET 


EQU 


$12 


Printcontrol-char 


; Gebruikte 


subroutine ' s 




OUT 


EQU 


$C023 


Print karakter op het scherm 


PRINT 


EQU 


$C03B 


Print een string op het scherm 


ASCHEX 


EQU 


$C03E 


Ascii naar hex 


OPEN 


EQU 


$D03F 


Open een input-file 


CREATE 


EQU 


$D036 


Creeer een output-file 


CLOSE 


EQU 


$D048 


Close de openstaande-f ile 


SREAD 


EQU 


$D000 


Single read uit file 


SWRITE 


EQU 


$D009 


Single write in file 


ERMES 


EQU 


$D0B7 


Error melding 



Hoofdprogramma 

ORG $1000 
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1000 


4C F511 CONV 


JMP 


1003 


C8C5CCD0 


FCC 


1007 


4C4C4C 


FCC 


100A 


OD INFO 


FCC 


100B 


46756E6374 


FCC 


1010 


696F6E2020 




1015 


203A205052 




101A 


494E544552 




101F 


2D636F6465 




1024 


2076657274 




1029 


61616C726F 




102E 


7574696E65 




1033 


2028455053 




1038 


4F4E207569 




103D 


74766F6572 




1042 


696E672920 




1047 


1B6E0D 




104A 


2020202020 


FCC 


104F 


2020202020 




1054 


203A204469 




1059 


742070726F 




105E 


6772616D6D 




1063 


61207A6574 




1068 


2064652061 




106D 


7363696976 




1072 


657276616E 




1077 


672D636F64 




107C 


650D 




107E 


2020202020 


FCC 


1083 


2020202020 




1088 


203A206D65 




108D 


7420626568 




1092 


756C702076 




1097 


616E206565 




109C 


6E20746162 




10A1 


656C20766F 




10A6 


6F72206465 




10AB 


2073706563 




10B0 


69616C650D 




10B5 


2020202020 


FCC 


10BA 


2020202020 




10BF 


203A207072 




10C4 


696E746B61 




10C9 


72616B7465 




10CE 


7273206F6D 




10D3 


206E616172 




10D8 


2064652070 




10DD 


72696E7465 




10E2 


72636F6465 




10E7 


732E0D 




10EA 


2020202020 


FCC 


10EF 


2020202020 




10F4 


203A204869 




10F9 


657262696A 




10FE 


20776F7264 




1103 


742065656E 




1108 


206F757470 




HOD 


757466696C 




1112 


652061616E 





CONVPRINT 

$C8 , $C5 , $CC , $D0 Zoekstring voor help utilitie 
$4C , $4C , $4C Dummy bytes 



' \r ' 

'Function : PRINTER-code vertaalroutine (EPSON uitvoering) 

\E n \r' 



: Dit programma zet de asciivervang-code\r 1 



: met behulp van een tabel voor de speciale\r’ 



: printkarakters om naar de printercodes . \r 1 



: Hierbij wordt een outputfile aangemaakt met\r' 
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1117 


67656D6161 




me 


6B74206D65 




1121 


740D 




1123 


2020202020 


FCC 


1128 


2020202020 




112D 


203A206465 




1132 


2041534349 




1137 


492D636F64 




113C 


657320706C 




1141 


7573206465 




1146 


2076657274 




114B 


61616C6465 




1150 


207072696E 




1155 


74636F6465 




115A 


732E0D 




115D 


53796E7461 


FCC 


1162 


7820202020 




1167 


203A20434F 




116C 


4E56505249 




1171 


4E54203C69 




1176 


6E70757466 




117B 


696C653E20 




1180 


3C6F757470 




1185 


757466696C 




118A 


653E0D 




118D 


4E6F206F70 


FCC 


1192 


74696F6E73 




1197 


203A0D 




119A 


2020202020 


FCC 


119F 


2020202020 




11A4 


203A205072 




11A9 


696E74636F 




11AE 


6D6D616E64 




11B3 


6F20766F6F 




11B8 


7220646520 




11BD 


6F75747075 




11C2 


7466696C65 




11C7 


203A0D 




11CA 


2020202020 


FCC 


11CF 


2020202020 




11D4 


203A203E50 




11D9 


20504C4953 




11DE 


54205B6F70 




11E3 


7469655D20 




11E8 


6F75747075 




11ED 


7466696C65 




11F2 


0D0D00 





: de ASCII-codes plus de vertaalde printcodes . \r ' 



'Syntax : CONVPRINT <inputfile> <outputf ile>\r ' 



'No options :\r' 



: Printcommando voor de outputfile : \r ' 



: >P PLIST [optie] outputf ile\r\r ' , 0 



r 

; Initialiseer de inputfile 



11F5 


A2 


81 


CONVPRINT LDX 


#$81 




11F7 


20 


3FD0 




JSR 


OPEN 


Open inputfile 


UFA 


90 


03 




BCC 


l.f 




11FC 


4C 


B012 




JMP 


ERROR1 




11FF 


86 


A0 


1 


STX 


FILEIN 


Save inputf ilenummer 








t 

r 


Initialiseer 


de outputfile 




1201 


A9 


FA 


r 


LDA 


#$FA 


Next file-name 


1203 


A2 


El 




LDX 


#$E1 


ASCII-f ile 



xdieb 
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1205 


20 


36D0 






JSR 


CREATE 


Maak outputfile aan 


1208 


90 


03 






BCC 


l.f 




120A 


4C 


B012 






JMP 


ERR0R1 


Store het outputf ilenummer 


120D 


86 


A1 


1 




STX 


FILEOUT 








/ 

f 


Laad 


de printer-conversie- 


•file 


120F 


A9 


13 


r 




LDA 


#PCFBUF> >8 


High-byte f ilenaambuf f er 


1211 


AO 


42 






LDY 


#PCFBUF&255 


Low-byte f ilenaambuf fer 


1213 


A2 


81 






LDX 


#$81 


Open conversie-f ile 


1215 


20 


3FD0 






JSR 


OPEN 


1218 


90 


03 






BCC 


l.f 




121A 


4C 


B012 






JMP 


ERROR1 




121D 


86 


A2 


1 




STX 


PCFILE 


Save het filenummer 








i 

f 


Lees 


de conversief ile 




121F 


20 


1B13 


LSPCF 


JSR 


RDFIL 


Lees data uit conversief ile 


1222 


F0 


06 






BEQ 


l.f 


# teken gevonden 


1224 


90 


28 






BCC 


ENDPCF 


eof gevonden 


1226 


85 


A4 






STA 


BUFINDX 


Save de bufferindex 


1228 


DO 


F5 






BNE 


LSPCF 




122A 


20 


1B13 


1 




JSR 


RDFIL 


Lees data uit conversief ile 


122D 


90 


IF 






BCC 


ENDPCF 


eof gevonden 


122F 


20 


3EC0 






JSR 


ASCHEX 


Ascii naar Hex conversie 


1232 


B0 


3B 






BCS 


ASCERR 


Stop met lezen 


1234 


0A 








ASLA 






1235 


OA 








ASLA 






1236 


OA 








ASLA 






1237 


OA 








ASLA 






1238 


85 


A3 






STA 


DATASAV 


Save data 


123A 


20 


1B13 






JSR 


RDFIL 


Lees data uit conversief ile 


123D 


90 


OF 






BCC 


ENDPCF 


eof gevonden 


123F 


20 


3EC0 






JSR 


ASCHEX 


Ascii naar Hex 


1242 


BO 


2B 






BCS 


ASCERR 


Stop met lezen 


1244 


05 


A3 






ORA 


DATASAV 


Maak hex-byte 


1246 


A6 


A4 






LDX 


BUFINDX 




1248 


9D 


4C13 






STA 


PCFTAB , X 


Save de data 


124B 


4C 


1F12 






JMP 


LSPCF 


Lees volgende code 



Sluit de printercode file 



124E 


A6 


A2 


ENDPCF 


LDX 


PCFILE 


Printercode filenummer 


1250 


20 


48D0 




JSR 


CLOSE 


Sluit de file 








t 

; Lees 


de inputfile en vertaal 


deze 


1253 


A6 


A0 


READ 


LDX 


FILEIN 


Laad het inputf ilenummer 


1255 


20 


00D0 




JSR 


SREAD 


Single read uit file 


1258 


B0 


4B 




BCS 


RDEND 


Test op end of file 


125A 


C9 


12 




CMP 


#SUBLET 


Vergelijk met printercontrol-char 


125C 


DO 


09 




BNE 


NOSUBL 


jump als het ascii data is 


125E 


20 


00D0 




JSR 


SREAD 


Single read uit file 


1261 


B0 


42 




BCS 


RDEND 


Test op end of file 


1263 


AA 






TAX 




Tabel index 


1264 


BD 


4C13 




LDA 


PCFTAB, X 


Haal code uit de tabel 


1267 


A6 


A1 


NOSUBL 


LDX 


FILEOUT 


Laad het outputf ilenummer 


1269 


20 


09D0 




JSR 


SWRITE 


schrijf asciidata in file 


126C 


4C 


5312 




JMP 


READ 


Haal volgend kar. uit de file 
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; Error melding voor een niet ascii-karakter 



126F 20 3BC0 ASCERR JSR PRINT 

1272 0D1B692041 FCC '\r\Ei ASCII-ERROR in printer-conversie file \En\r',0 

1277 534349492D 

127C 4552524F52 

1281 20696E2070 

1286 72696E7465 

128B 722D636F6E 

1290 7665727369 

1295 652066696C 

129A 65201B6E0D 



129F 


00 




t 

; Close 


de 


files 




12A0 


A6 


A2 


r 

PCFCLO 


LDX 


PCFILE 


Printercode filenummer 


12A2 


20 


48D0 




JSR 


CLOSE 


Sluit de file 


12A5 


A6 


A0 


RDEND 


LDX 


FILEIN 


Laad het inputf ilenummer 


12A7 


20 


48D0 




JSR 


CLOSE 


Sluit de file 


12AA 


A6 


A1 




LDX 


FILEOUT 


Laad het outputf ilenummer 


12AC 


20 


48D0 




JSR 


CLOSE 


Sluit de file 


12AF 


60 






RTS 




terug naar DOS-65 


12B0 


4C 


B7D0 


ERROR1 


JMP 


ERMES 


print error 



Als er een code gelezen wordt welke niet omgezet 
kan worden naar een ascii-nibble volgt er een 
foutmelding. 



12B3 


20 3BC0 CERROR 


JSR 


PRINT 


Geef printercode error 


12B6 


0D1B692041 


FCC 


1 \r\Ei ASCII- 


-ERROR in printercode \En\r\r ' 


12BB 


534349492D 








12C0 


4552524F52 








12C5 


20696E2070 








12CA 


72696E7465 








12CF 


72636F6465 








12D4 


201B6E0D0D 








12D9 


6E65787420 


FCC 


'next characters follows after the error\r\r ' 


12DE 


6368617261 








12E3 


6374657273 








12E8 


20666F6C6C 








12ED 


6F77732061 








12F2 


6674657220 








12F7 


7468652065 








12FC 


72726F720D 








1301 


0D 








1302 


3D3D3E2000 


FCC 


'==> ',0 




1307 


A6 A0 


LDX 


FILEIN 


Laad het inputf ilenummer 


1309 


20 00D0 LOOPERR 


JSR 


SREAD 


Single read uit file 


130C 


20 23C0 


JSR 


OUT 


Print het kar. op het scherm 


130F 


C9 0D 


CMP 


#$0D 


Test op einde van de tekstregel 


1311 


DO F6 


BNE 


LOOPERR 




1313 


A9 0A 


LDA 


#$0A 




1315 


20 23C0 


JSR 


OUT 




1318 


4C A512 


JMP 


RDEND 





• ********************************************************** 
; Rouitne: RDFIL 
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Lees byte uit de file en test op een REMARK, SPATIE 
en # teken. 

Bij een REMARK wordt er doorgelezen tot het einde van 
de regel, een spatie wordt overgeslagen. 

Wanneer het # teken gelezen wordt verlaat het programma 
de routine met de Z-vlag als status voor het vinden 
van het # teken. Z-vlag = 

Wanneer het laatste teken 
de C-vlag 0 



131B 


A6 


A2 


RDFIL LDX 


PCFILE 


131D 


20 


00D0 


JSR 


SREAD 


1320 


B0 


19 


BCS 


RDCEND 


1322 


C9 


20 


CMP 


#$20 


1324 


F0 


F5 


BEQ 


RDFIL 


1326 


C9 


3B 


CMP 




1328 


F0 


04 


BEQ 


READREM 


132A 


C9 


23 


CMP 


#'# 


132C 


38 




SEC 




132D 


60 




RTS 




132E 


A6 


A2 


READREM LDX 


PCFILE 


1330 


20 


00D0 


JSR 


SREAD 


1333 


B0 


06 


BCS 


RDCEND 


1335 


C9 


0D 


CMP 


#$0D 


1337 


DO 


F5 


BNE 


READREM 


1339 


F0 


E0 


BEQ 


RDFIL 


133B 


A6 


A2 


RDCEND LDX 


PCFILE 


133D 


20 


48D0 


JSR 


CLOSE 


1340 


18 




CLC 




1341 


60 




RTS 





1 teken gevonden. 

uit de file gelezen is wordt 



Laad het inputf ilenummer 
Single read uit file 
Test op end of file 
Test op een spatie 
sla deze over 
test op remark teken 

Test op scheidingsteken 



Laad het inputf ilenummer 
Single read uit file 
Test op end of file 
Test eol 
lees verder 

Laad het Printerinputf ilenummer 

Sluit de file 

C=0 voor einde file 



; File commandobuffer voor de printer-conversief ile 

1342 533A504346 PCFBUF FCC ' S:PCF.DAT' ,0 

1347 2E44415400 

r 

; Tabel met speciale printercodes 

134 C PCFTAB RES 128 printercode tabel 

1000 ’ END CONV 

global labels 



ASCERR 126F 
CONV 1000 
ERMES D0B7 
LOOPERR 1309 
PCFBUF 1342 
RDCEND 133B 
SREAD D000 



ASCHEX C03E 
CONVPRINT 11F5 
ERROR1 12B0 
LSPCF 121F 
PCFCLO 12A0 
RDEND 12A5 
SUBLET 0012 



BUFINDX 00A4 
CREATE D036 
FILEIN 00A0 
NOSUBL 1267 
PCFILE 00A2 
RDFIL 131B 
SWRITE D009 



CERROR 


12B3 


DATASAV 


00A3 


FILEOUT 


00A1 


OPEN 


D03F 


PCFTAB 


134C 


READ 


1253 



CLOSE D048 
ENDPCF 124E 
INFO 100A 
OUT C023 
PRINT C03B 
READREM 132E 



Errors detected: 0 
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Software 



/***************************************************************************/ 
/* */ 

/* file GDP.C */ 

/* */ 

/* simple driver for Thomson Grafic Display Processor EF9367 */ 

/* */ 

/* written by : Adri Hankel */ 

/* directed by : Erwin Visschedijk */ 

/* V 

/* copyright (c) 1988 : KIM Gebruikers Club Nederland. */ 

/* */ 

/ * * / 

/* attention: compiling this file (using 1 ccc gdp 1 ) */ 

/* takes more than eight minutes 

/* (on a 1 MHz flogp^ system) 



/ 



A***************************: 



*/ 

*/ 

c*****************************************/ 



/* self-explaining */ 

#define TRUE 1 
#def ine FALSE 0 

/* maximum value for x & y coordinates */ 
#def ine MAX X 511 
#def ine MAX - Y 255 



/* command key definitions 
#def ine UPKEY 11 /* 

tdefine DOWNKEY 10 /* 

#def ine LEFTKEY 8 /* 

#def ine RIGHTKEY 9 /* 

fdefine PLOTLINE 76 /* 

fdefine CIRCLE KEY 67 /* 

fdefine BOX KEY 66 /* 

^define SELECT PAGE 80 /* 

fdefine ERASE FACE 69 /* 

^define STEPSTZE 83 /* 

{define CENTERCURSOR 72 /* 
{define SETLINETYPE 84 /* 

define QUIT 81 
{define CR 13 



/* 

/* 



*/ 

key 

key 

key 

key 

key 

key 

key 

key 

key 

key 

key 

key 

key 

key 



VER. TAB 
LINEFEED 
BACKSPACE 
HOR. TAB 
'L' 

•c 

■ B ’ 

•P' 

’S' 

' S ' 

■H' 

1 T 1 
' o * 

RETURN 



*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

V 

*/ 

V 

*/ 



/* assembler 
#asm 

status equ 
cmd equ 
ctrll equ 
ctrl2 equ 
csize equ 
deltax equ 
deltay equ 
xmsb equ 
xlsb equ 
ymsb equ 
ylsb equ 
color equ 
scroll equ 
page equ 
nscroll equ 
#endasm 



definitions */ 

3el50 
3el50 
3el51 
5el52 
3el53 
3el55 
5el57 
>el58 
3el59 
5el5a 
3el5b 
>el64 
5el65 
3el66 
3el67 



/* global variables */ 

int curx,cury; 

int oldx,oldy; 

char plotflag; 

char curpage; 

char stepsize; 

char linetype; 

char old_linetype; 



/* 

/* 

/* 

/* 

/* 

/* 

/* 



current cursor coordinates 

old cursor coordinates 

boolean: TRUE during plotting 

current page 

number of steps (1..9) 

linetype (continuous, dotted etc.) 

temp, copy of linetype 



*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 



main ( ) 

{ 

char com key; 
if (yesgcTpO == FALSE) 



/* check for gdp-pcb in the system */ 



printfC'*** Error 
exit ( 1 ) ; 



GDP not found, program terminated . \n" ) ; 
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init_gdp ( ) ; 
init_screen ( ) ; 
dr window ( ) ; 
do 

{ 

com key = getkey(); 

switch (com_key) 

case UPKEY: 

reset_cursor ( ) ; 

cury = cury + stepsize; 

set_cursor ( ) ; 

show status ( ) ; 

V\ v* o a 17" • 

case DOWNKEY : ' 

reset_cursor ( ) ; 

cury = curv - stepsize; 

set_cursor ( ) : 

show status ( ) ; 

break; 

case LEFTKEY: 

reset_cursor ( ) ; 

curx = curx - stepsize; 

set_cursor { ) ; 

show status ( ) ; 

break; 

case RIGHTKEY : 

reset_cursor() ; 

curx = curx + stepsize; 

set_cursor { ) : 

show status ( ) ; 

hvpaF • 

case PLOTLINE: 

E lotline ( ) ; 
reak ; 

case CIRCLE_KEY : 

set_circle ( ) ; 
break ; 

case BOX_KEY: 

E lot box ( ) ; 
reak; 

case SELECT_PAGE: 

selec_page ( ) ; 

case ERASE_PAGE : 

erapage { ) ; 
break ; 
case STEPSIZE: 

set_stepsize ( ) ; 
break ; 

case CENTERCURSOR: 

center_cursor ( ) ; 
break * 

case SETLINETYPE: 

se_linetype ( ) ; 
break; 

1 



i = 



while . 

clear screen { . . 
printt ( "End GDP\n" 



(com key ! 

“ tf; 



QUIT) ; 

) ; 



>lotline { ) 



char com_key; 
oldx = curx; 
oldy = cury; 
plotflag = TRUE; 
show_status ( ) ; 
gotoxy (24,8) ; 
printf ( "Plotting . 
gotoxy (1,21) ; 
reset_cursor ( ) ; 



do 



(CR to end) " ) ; 



com_key = getkeyO; 
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switch (com_key) 

case UPKEY: 

unplot (oldx, oldy , curx, cury) ; 
cury = cury + stepsize ; 
break * 
case DOWNKEY:' 

unplot (oldx , oldy , curx , cury ) ; 
cury = cury - stepsize; 
break ; 

case LEFTKEY: 

unplot (oldx, oldy , curx, cury) ; 
curx = curx - stepsize; 
break ; 
case RIGHTKEY : 

unplot (oldx, oldy , curx, cury) ; 
curx = curx + stepsize; 

^ break; 

plot (oldx, oldy , curx, cury) ; 
show_status ( ) ; 



while (com key != CR) ; 
set_cursorT) ; 
gotoxy (24,8) ; 

plotf lag’ = FALSE; 
show_status ( ) ; 



set_circle ( ) 

int radius; 
int max_rad; 
char com key; 
max_rad = MAX_Y/2; 
gotoxy (24,9) ; 
clreol ) ; 
gotoxy (24,9) ; 

pri ntf "Enter radius (max. %d) : ",max rad); 

scant ( %d ", &radius ) ; “ 

if (radius > max_rad) set_circle ( ) ; 
old_lmetype = linetype; 
linetype = 0; 
set_lmetype (linetype) ; 
show 1 ‘ 
circTe 
gotoxy 
clreol 
printf 

com key = getkeyU; 
if Tcom_key == 89) /* com_key was 'Y' */ 

full_circle (curx, cury , radius-1 ) ; 



netype ( ) ; 

curx, cury , radius ) ; 
24,9) ; 

) ? 

"Full circle (Y/N)"); 



clreo 



24 

) 



.9) 



linetype = old_linetype ; 
set_linetype (linetype) ; 
show_linetype ( ) ; 



^>lot_box ( ) 

char com_key; 
oldx = curx; 
oldy = cury; 
plotf lag = TRUE; 
show_status ( ) ; 
gotoxy ( 24 , 10) ; 
printf ( "Plotti 
gotoxy (1 , 21) ; 
reset cursor ' 
do 

{ 

com key = getkeyO; 

switch ( com_key j 



:ing box. 

) ; 



(CR to end) " ) ; 
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{ 

case 



case 



case 



case 



UPKEY: 

unbox ( oldx , oldy , curx , cury ) 
cury = cury + stepsize; 
break ; 

DOWNKEY : 

unbox (oldx , oldy , curx , cury) 
cury = cury - stepsize; 
break ; 

LEFTKEY i 

unbox ( oldx , oldy , curx , cury) 
curx = curx - stepsize; 
break ; 

RIGHTKEY: 

unbox (oldx, oldy , curx, cury) 
curx = curx + stepsize; 
break ; 



box (oldx, oldy , curx, cury) ; 
show_status ( ) ; 



while (com key != CR) ; 
set cursorT) ; 

24,10); 

24,10) ; 

"Full box (Y/N)"); 



gotoxy 

clreol 

gotoxv 

print! 



print_ 

com key = getkeyO 
if Tcom_key == 89) 



/* com_key was 



full box (oldx, oldy, curx, cury); 



’Y* */ 



gotoxy (24,10) ; 
clreol ( ) ; 
plotflag = FALSE; 
show status ( ) ; 

) 



selec_page ( ) 
char com key: 

??&??! “Intone. page (0/1/2/3) 

com key = getkey ( ) ; 

if Tcom key > 51 selec_page ; 

if (comlkey < 48 ) selec_page ( ) ; 

curpage = com_key-48; 

set_page (curpage) ; 

dr window ( ) ; 

sef_cursor ( ) ; 

g??SSI}?f ' llS ; 

show status ( ) ; 



/* select a GDP page */ 



') ; 



era_page ( ) 
char com ke] 



/* erase current GDP page */ 



print? ( "Erase this page ? (Y/N) : ); 

com key = getkeyU; 

if Tcom_key == 89) /* com_key was 

clearpage (curpage) ; 
dr window!); 
sef_cursor ( ) ; 

show_status ( ) ; 



' Y' */ 



set stepsizeO 
( “ 

char com key: 

print? I "Enter ' stepsize (1-9) 
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com key - getkeyO; 

if Tcom key > 57) set_stepsize ( ) ; 

if (corrTTcey < 49) set_stepsize ( ) ; 

stepsize = com_key-48; 

gotoxv (24,13) ; 

clreol ( ) ; 

show_stepsize ( ) ; 



center_cursor { ) 

char com key: 
gotoxy ( 24\ 14 ) ; 

print! ("Are you shure (Y/N)"); 
com key = getkeyO; 

if Tcom_key == 89) /* com_key was 'Y' */ 



reset_cursor ( ) ; 

curx = MAX X/2 ; /* locate cursor at screen center */ 
cury = MAX~Y/2; 
set_cursorT) ; 



gotoxy (24,14) ; 
clreol ( ) ; 
show_status ( ) ; 



se_linetype ( ) /* select a line type */ 

char com key: 
gotoxy ( 2?, 15) ; 

print! (" O=continuous , l=dotted, 2=dashed, 3=dotted-dashed 

com key = getkeyO; 

if Tcom key > 5l) se_linetype ( ) ; 

if (conCkey < 48) se linetype ( ) ; 

linetype = com_key-4F: 

set linetype ( linetype ) ; 

gotoxy (24,15) ; 

clreol ( ) ; 

show_linetype ( ) ; 



") ; 



/****************************************************************************/ 
/* low level functions */ 

/* circle routine according to Bressenham/Mich algorithm */ 
circle (xs tart , ys tart , radius ) 
int xstart , ystart , radius ; 

int x,y,d; 
x = 0 ; 
y = radius; 
d = 3-2*radius; 
while (x^< y) 

circle_points (xstart , ystart , x , y) ; 
if (d < 0) 



else 



x++ ; 

if (x == y) 



{ 

d = d+4*x+6; 



d = d+4* (x-y) +10 ; 

r ; 



circle_points (xstart , ystart , x , y) ; 



circle points (xstart , ystart , x, y) 
int xstart, ystart, x,y; 
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int corrx,corry; , . . .. . , 

corrx = (x*3)/2; /* adjust x & y to obtain a real circle, */ 

corry = (y*3)/2; /* instead of a oval / 

wr_pixel xstart+corrx,ystart+y) ; 

wr_pixel xstart+corry , ystart+x) ; 

wr_pixel (xstart+corry , ystart-x) ; 

wr_pixel (xstart+corrx, ystart-y ) ; 

wr_pixel (xstart-corrx , ystart-y ; 

wr_pixel (xstart-corry,ystart-x) ; 

wr_pixel (xstart-corry , ystart+x) ; 

wr_pixel (xstart-corrx, ystart+y) ; 



wr pixel (xpos , ypos ) /* write one pixel */ 

int xpos , ypos ; 



int xorga,yorga 


r 


xorga = 


xpos ; 






yorga = 


ypos; 






ready ( ) 








#asm 










Ida 




#0 




sta 




deltay 




sta 




deltax 




ldd . u 


0 






stx 




ymsb 




sta 




ylsb 




Idd.u 


2 






stx 




xmsb 




sta 




xlsb 




Ida 




#$10 




sta 




cmd 



jfendasm 



;deltay & deltax = 0, 

;means setting one pixel only 

; set X , Y memory addresses 



; select pen 



f ull_circle (xs tar t , ys tart , radius) 
int xstart , ystart , radius ; 

do 

circle (xstart , ystart , radius ) ; 
radius — ; 

while (radius != 0); 

I 



/* draw box between (xstart . ystart) and 
box (xstart , ystart , xend, yend) 
int xstart, ystart, xend, yend; 

plot(xstart, ystart, xend, ystart); 
plot (xstart, yend, xend, yend); 
plot (xstart, ystart+1, xstart, yend-1); 
plot (xend, ystart+1, xend, yend-1); 



(xend, yend) */ 



/* lower line */ 
/* upper line */ 
/* left line */ 
/* right line */ 



/* delete box between (xstart . ystart) and 
unbox (xstart , ystart , xend , yend) 
int xstart , ystart , xend , yend ; 

unplot (xstart , ystart, xend, ystart); 
unplot (xstart , yend, xend, yend); 
unplot xstart, ystart+1, xstart, yend-1); 
unplotlxend, ystart+1, xend, yend-1); 



(xend, yend) */ 



/* lower line */ 
/* upper line */ 
/* left line */ 
/* right line */ 



full_box (xstart , ystart , xend , yend) 
int xstart , ystart , xend , yend ; 

int i; 

if (yend > ystart) 

for (i = yend; i != ystart; i — ) 
^>lot (xstart , i , xend , i ) ; 

1 
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else 



for (i =^ystart; i ! = yend; i — ) 
ylot (xstart , i , xend , i ) ; 



plot (xorg,yorg, xend, yend) 
int xorg,yorg, xend, yend; • 

select_pen ( ) ; 
pen down ( ) ; 

setTin (xorg,yorg, xend, yend) 



/* plot line from xorg,yorg to xend, yend */ 



unplot (xorg, yorg, xend, yend) 
int xorg , yorg , xend , yend ; 



select_eraser ( ) ; 
eraser down ( ) ; 

setlinTxorg , yorg , xend , yend) ; 



/* unplot line from xorg, yorg to xend, yend */ 



setlin (xorg , yorg , xend , vend) /* set a single line */ 

int xorg , yorg , xend , yena; 

int maxsize; 
int xtemp; 
int ytemp; 

maxsize = xend-xorg; 
abs ( Smaxsize) ; 
if (maxsize < 256) 

Inline (xorg, yorg, xend, yend) ; /* single line plot possible */ 

else 

{ /* double line plot */ 

if (yend^== yorg) 

j'temp = yorg; 

else 



ytemp = yorg + ( (yend-yorg) /2 ) ; 

if (xend^< xorg) 

xtemp = xend + ( (xorg-xend) / 2 ) ; 
pline (xorg, yorg, xtemp, ytemp); 
xtemp-- ; 

yline (xtemp, ytemp, xend, yend); 



else 



{ 

xtemp = (xend-xorg) /2 ; 

pline (xorg, yorg, xtemp, ytemp) ; 

xtemp++ ; 

pline (xtemp, ytemp, xend, yend) ; 



pline (xorg , yorg , xend , yend) /* plot line with delta_x < 256 */ 
int xorg , yorg , xend , yend; 

int xorga,yorga; 

int dest; /* destination control */ 

int deltax,deltay; 

deltax = (xend - xorg) ; 

abs ( &deltax) ; 

deltay = (yend - yorg) ; 

abs ( &aeltay) ; 

xorga = xorg; 

yorga = yorg; 
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rep ter <m^(U ns isies 



dest = Oxll; 
if (xend > xorg) 
else 

if (yend > yorg) 
else 



ready ( ) 
#asm 



ldd.u 0 
sta 

ldd.u 2 
sta 

ldd.u 6 

stx 

sta 

ldd.u 8 

stx 

sta 

ldd.u 4 
sta 



/* 


starting 


value */ 


dest = 


dest & 


Oxfd ; 


dest - 


dest 1 


0x02 ; 


dest = 


dest & 


Oxf b ; 


dest - 


dest 1 


0x04 ; 


deltay 






deltax 







ymsb 

ylsb 

xmsb 

xlsb 

cmd 



#endasm 

I 



/* compute sign bits 
/* for DELTAX 
/* and DELTAY 



*/ 

*/ 

*/ 



init gdp() /* initialize gdp processor */ 

( 

char i; . 

for (i = ^4; i > 0; l — ) 

clear_page (i) ; 



curpage = 0; 
stepsize = 5; 
set__page (curpage) ; 
linetype = 0; 
old linetype =0; 
curx = MAX X/2; 
cury = MAXHf/2; 
oldx = curx; 
oldy = cury; 
plotflag = FALSE; 
select_eraser ( ) ; 
pen_down ( ) ; 
set_wr_normal ( ) ; 
set_non cyclic (); 
set_confinuous_lme ( ) ; 
set normal_characters ( ) 
setTiorizontal_axis ( ) ; 
set_cursor ( ) ; 



ldx 


#$00 


stx 


color 


stx 


scroll 


stx 


hscroll 


stx 


xmsb 


stx 


xlsb 


stx 


ymsb 


ldx 


#$11 


stx 


csize 


ldx 


#$f 8 


stx 


ylsb 



#endasm 

) 



/* 



locate cursor at screen center 



*/ 



abs(a) /* make a positive */ 
int *a; 

( if ( *a < 0) *a = -*a; ) 
set_cursor ( ) 

old_linetype = linetype; 
set_linetype (0) ; 
selectmen ( ) ; 
pen_down ( ) ; 
wr_pixel (curx, cury) ; 
linetype = old_linetype ; 
set_lmetype (linetype) ; 
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reset_cursor ( ) 



old_linetype = linetype; 
set_linetype ( 0 ) ; 
select_eraser ( ) ; 
pen_down ( ) ; 
wr_pixel (curx, cury) ; 
linetype = old_linetype ; 
set_linetype (linetype) ; 



set_linetype ( type ) 
char type; 

switch (type) 

case 0: 

set continuous line(); 
break ; 

case 1; 

set dotted line(); 
break ; 

case 2: 

set dashed_line ( ) ; 
break ; 

case 3: 

set dot_dashed_line ( ) ; 
break ; 



dr 
f ' 



window ( ) 



old_linetype = linetype 
set linetype ( 0 ) ; 
boxTO , 0 , MAX_X , MAX_Y) ; 
linetype = old_linetype 
set_linetype ( linetype) ; 



/****************************************************************************/ 
/* primitive functions */ 

/* CTRL1 register */ 

j3en_up ( ) 

#asm 

Ida ctrll 

and #$fe 

sta ctrll 

|endasm 

eraser_up ( ) 
lasm 

Ida ctrll 

and #$fe 

sta ctrll 

#endasm 

1 



^>en_down ( ) 

#asm 

Ida ctrll 

ora #$01 

sta ctrll 

|endasm 

eraser_down ( ) 
lasm 

Ida ctrll 

ora #$01 

sta ctrll 
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#endasm 



select__pen ( ) 



tasm 



#endasm 



Ida ctrll 

ora #$02 

sta ctrll 



select eraser () 

I 

#asm 



|endasm 



Ida ctrll 

and #$fd 

sta ctrll 



set wr normal ( ) 

{ ~ “ 

#asm 

Ida ctrll 

and #$fb 

sta ctrll 

#endasm 

I 

set_wr_highspeed { ) 
#asm 

Ida ctrll 

ora #$04 

sta ctrll 

jfendasm 



set_non_cyclic ( ) 
#asm 

Ida 

and 

sta 

|endasm 

set_cyclic ( ) 

#asm 



ctrll 
#$f 7 
ctrll 



Ida 

ora 

sta 



ctrll 

#$08 

ctrll 



|endasm 

/* CTRL2 register */ 

set continuous line() 
{ " 

#asm 

Ida ctrl2 

and #$f c 

sta ctrl2 

#endasm 



set dotted line{) 
{ ~ 

#asm 



|endasm 



Ida ctrl2 

ora #$01 

sta ctrl2 



set_dashed_line ( ) 



Fasm 



Ida 

ora 

sta 



ctrl2 

#$02 

ctrl2 



|endasm 

set dot dashed_line ( ) 
{ “ “ 



#asm 



#endasm 



Ida 

ora 

sta 



ctrl2 

#$03 

ctrl2 



set_normal_characters { ) 
# asm 



Ida 

and 

sta 



ctrl2 

#$fb 

ctrl2 



|endasm 

set tilted characters 0 
{ ” 



#asm 



Ida 

ora 

sta 



ctrl2 

#$04 

ctrl2 



fendasm 
set_horizontal_axis ( ) 

^ aSIT1 , . ■ TO 

Ida ctrl2 

and #$f 7 

sta ctrl2 

jfendasm 

set vertical_axis ( ) 

( “ 



#asm 



|endasm 

ready ( ) 
#asm 



Ida 

ora 

sta 



ctrl2 

#$08 

ctrl2 



Ida 

and 

beq 



#endasm 

clearjpage (page) 
char page; 



status 

#$04 

_ready 



#asm 



#endasm 



ldc .u 
sta 
Ida 
sta 

ready ( ) ; 



nef 

cmd 



set__page (page) 
char page; 
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asm 



jfendasm 



ldc . u 
sta 



0 

page 



^etkey() /* get 
#asm 



#endasm 

I 



qsr 
jsr 
std . u 



single key from keyboard without echo to screen */ 



f 003 

c041 toupper 



esgdp() /* checks on available GDP pcb */ 



#asm 


Ida 

and 


cmd 

#$fO 






bne 


nogdp 


; no gdp 




ldd 

rts 


#1 


; return ( 1 ) 


nogdp 


ldd 

rts 


#0 


; return ( 0 ) 



#endasm 

I 



/********************* screen procedures ***********************/ 

show_status() /* shows actual settings */ 

show_xy ( ) ; 
gotoxy 7 1,22) ; 

printf ( ,, Page=%d" , curpage) ; 
gotoxy (1,21) ; 



show_xy ( ) 
if (plotflag == TRUE) 



/* shows current x & y parameters */ 



else 



gotoxy (41,22) ; 
printf "Oldx=%d 
gotoxy (51,22); 
^rintf ( "0idy=%d 



clreolj?)' 22 ' 



" , oldx) ; 
" , oldy ) ; 



" , curx) 

\ 71 , 22) ; 
rint! ( "Cury=%d ",cury) 



gotoxy (61,22); 
print! ( "Curx=%d 

g ' 

show stepsize() 

( 

gotoxy (10,22 ) ; 

print! ( "Stepsize=%d" , stepsi 

gotoxy ( 1 , 21 ) ; 

show_linetype ( ) 

gotoxy (23,22) ; 
clreol ( ) ; 

printf ( "Lntype= , ‘ ) ; 
switch (linetype) 



ize ) ; 



;ypej 
I 

case 0: 



printf ( "Contin . " ) ; 
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case 1: 
case 2: 
case 3: 



break ; 

printf ( "Dotted" ) ; 
break ; 

printf ( "Dashed" ) ; 
break ; 

printf ( "Do . /da . " ) ; 
break ; 



show status ( ) ; 

1 



clear_screen ( ) 
printf ( "%c" ,12) ; 

inv_on ( ) /* set inverse */ 

printf ("%c%c", 27, ’ i ' ) ; 

inv_off() /* reset inverse */ 

printf ("%c%c", 27, 'n' ) ; 

/* cursor to x,y. Adapted from A. Megens */ 
/* video routines */ 

0 
2 

$f 024 



gotoxy (x,y) 
char x,y; 



Fasm 



#endasm 



ldc . u 

pha 

ldc . u 

tay 

pla 

tax 

jsr 



clreol ( ) 



/* clear until end of line */ 



printf ("\032") 



init_screen ( ) 

clear_screen ( 
inv on { ) 



) ; 



printf ( 
printf ( 
inv_off 
printf 
printf 
printf 
printf 
printf 
printf ( 
printf ( 
printf ' 
printf 
printf 
printf 
printf 
printf 
printf 
gotoxy I 
' ltf I 



Simple GDP driver ”); 
VI .0 



U 

v 

< 

> 



L 

C 

B 

P 

E 

S 

H 

T 



JO) 

printf 
printf . 
show_linetype ( ) ; 
show_status ( ) ; 
show_stepsize ( ) ; 



- cursor up 
cursor down 
cursor left 
cursor right 

plot Line 
plot Circle 
plot Box 
select Page 
Erase page 
set Stepsize 
cursor Home 
select lineType 
Quit GDP 



\n" 

\n" 

\n" 

\n" 

\n" 

\n" 

\n" 

\n" 

\n" 

\n" 

\n" 

\n" 

\n" 



n 



) ; 



ASH/EJMV 1988\n" ) ; 



\n" ) 



/* end gdp.c */ 
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COMPUTER GRAPHICS 

DISPLAY TECHNIEK: 

De ontwikkeling van de display techniek 
heeft niet altijd gelijke tred gehouden 
met de ontwikkeling van de computer. 
Echter vooral de laatste jaren is daar 
grote verandering ingekomen ten gunste 
van de grafische display techniek. 

Het displayen van grafische informatie 
wordt in vele toepassingen gebruikt, zo- 
wel doormiddel van zeer kostbare indu- 
strieele systemen, als door de steeds 
goedkoper wordende PC. 

In het midden van de jaren zestig kwam 
de opmars van het beeldscherm.toegepast 
als man-machine interfacee. De nieuwe 
term 'TELETYPE REPLACEMENT' was geboren. 
Luchtvaart reserveri ngs-systemen waren 
de eerste grote toepassingen van de zeer 
kostbare VDU, echter net als met de cal- 
culators zakten de prijzen dramatisch en 
nam het gebruik sterk toe. De term 'VDU' 
(Video Display Unit) kwam in gebruik, 
vooral Laat in de jaren 70 met de 
intrede van de z.g intelligente terminal 
die er toe bijdroeg, dat het gebruik van 
computers gemeengoed is geworden. Begin 
jaren BO werd de VDU een integraal on- 
derdeel van de meeste microcomputer en 
personal computers. 

Wat gebeurde er met de ontwikkeling van 
de z.g computer graphics dispLays, in de 
tijd dat de alphanumeric beelaschermen 
zo succesvol in gebruik toenamen? 

Computer graphics displays bestaan zelfs 
langer dan de eerder beschreven toepas- 
singen. Tijdens de zestiger jaren waren 
ze vooral in gebruik in de wetenschap, 
techniek en militaire systemen. De toen- 
malige techniek stond bekend als stroke- 
writing (streepjes trekken) aLternatieve 
namen waren 'randomscan vector-graphics 
en ca l l i g raph i cs' . De 'stroke writing' 
schermen werkten met een adressen matrix 
te weten een startadres X,Y en een eind 
adres XY waar tussen alLeen horizontaLe 
strepen getrokken konden worden. In de 
jaren zeventig zien we dat grafische 
techniek ook op andere gebieden toege- 
past word zoals procescontro Le. De toen 
ebruikte techniek leek op die van VDU 
eeldschermen. Men maakte nl gebruik van 
'semi graphics' ook wel block of format 
graphics genoemd, dit zijn symbolen die 
aaneenges loten (dus zonder spaties) ge- 
toond kunnen worden zodat een compleet 
plaatje ontstaat. (Zie figuur 1) 

Normaal caracter matrix. 




Semie grafische caracter matrix 



Fig. 1 



KLEUR: 

Fabrikanten brachten begin jaren zeven- 
tig de eerste industrieele kleuren 
monitoren op de markt. de resolutie was 
nog laag en ergonomisch mensvri endelij k 
waren deze monitoren bepaald nog niet. 
De toepassing van kLeuren monitoren ge- 
kombineerd met semi e-grafi sche weergave 
nam desa Ini ettem i n grote vormen aan, en 
leide tot grote verbeteringenbij deze 
monitoren. De basis kLeuren bij moni- 
toren zijn: ROOD GROEN en 6LAUW "RGB" 
Door deze kleuren te combineren en de 
intensiteit per kleur te regelen, kun- 
nen we een zeer groot kleuren palet op 
de monitor weergeven, bi j voorbeeld: 
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Fig. 2 

ZoaLs u zult hebben gemerkt, kunnen we 
door de intensiteit om te zetten nasr 
halfintensi tei t 16 kleur kombi nati es cje- 
nereren, bij monitoren met een z.g TTL 
ingang voor de RGB aans lui ti ngen, is dit 
meestaL het maximaal aantal kLeuren dat 
men kan weergeven. Bij monitoren met een 
analoge ingang voor cfe RGB aans lui ti ngen 
zijn het aantal weer te geven kleur-kom- 
binaties bijna oneindig en meer afhanke- 
lijk van de kontroler die men gebruikt. 
Vergelijkt u het maar met een lichtscha- 
kelaar, aan/uit voor TTL en een licht- 
schakelaar met dimregelaar voor anaLoog. 
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FULL GRAPHICS: 

Deze techniek van weergeven, is een van 
de snelst groeiende o.a door de daLende 
prijzen van hoge reso Luti e-moni toren en 
de bijbehorende kontrolers. V/ at is FULL 
GRAPKICS ? Het is een techniek die het 
mogelijk maakt, op een wiltekeurige 
positie op het beeldscherm een "PUNT" 
weer te geven. Deze punt noemt men in de 
regel "PIXEL" of ook wel "DOT". Het 
maximale aantaL pixeLs die men horizon- 
taal tX) en vertikaal (Y) kan weergeven, 
is afhankelijk van ondermeer het beeld- 
scherm. Men noemt dat de "RESOLUTIE". 
Hoe hoger de reso luti e is, des te 
snelLer zal de monitor moeten zijn. De 
snelheid van een monitor wordt 
uitgedrukt in de video bandbreedte welke 
kan oplopen tot meer dan 100 MHZ. 
Uiteraard is ook de horizontale synchro- 
nisatie van crote betekenis, de snelheid 
daarvan worcTt meestal uitgedrukt in een 
min en max waarde, uitgedrukt in KHZ. 
Het is u wel opgevallen dat een beeld- 
scherrn niet symetrisch is, maar in de X 
richting Ihonzontaal) langer is dan in 
de Y richting (vertikaal), daarom is het 
gebruikelijk om de resolutie asymetrisch 
In in verhouding tot het beeldscherm op 
te geven. Gebrui ke L i j ke resoluties zijn: 

1280 X 1024 pixels 

1024 X 768 pixels 

768 X 512 pixels 

720 X 400 pixeLs 

720 X 350 pixeLs 

640 X 460 pixels 

640 X 400 pixels 

640 X 350 pixels 

640 X 200 pi xels 

320 X 200 pixels 

Het systeem of kontroler die de pixels 
opslaat, en op kommando naar het beeLd- 
scherm kan sturen, moet een geheugen 
hebben dat minimaal overeenkomt met de 
resolutie die het beeldscherm weergeeft. 
Zo'n geheugen noemt men wel "BITMAP" of 
"VIDEO GEHEUGEN" en bestaat uit snelle 
dynam i sche-ram chips. 0m een beeldscherm 
volledig te vullen met pixeLs in een re- 
solutie van laten we zeggen 1280 X 1024 
pixels, is een minimaal geheugen nodi g 
van 1310720 bits of 163840 bytes (164 kJ 
Met di t geheugen kunnen we op iedere 
pLaats op het beeldscherm een pixel aan 
of uit zetten. Jammer is, dat het maar 
in een kleur kan. Voor meer kleuren 
hebben we ook meer geheugen nodig, maar 
met de tegenwoordi ge techniek op net ge- 
bied van geheugen chips, is dat probleem 
goed opgelost. E denk aan de mega-chip) 



MEER KLEUR: 

Voor een bepaalde resolutie. kunnen we 
de orate van de bitmap uitrekenen, maar 
sLechts voor 1 kleur. Een derde dimensie 
gaan we nu toevoegen, nameLijk meer bit- 
maps. Het aantaL bitmaps tot de macht 2 
bepaaLd het aantal kleuren dat we kunnen 
weergeven, dus 1280 X 1024 X 2 betekent 
twee bitmaps van 1280 X 1024 nu kunnen 
we 2 tot de macht 2=4 kleuren weergeven. 
Zi e f i guu r 3 . 
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Fig. 3 

Vier bitmaps is een zeer populair aantal 
men kan er 16 kleuren mee displayen, dat 
zal voor de meeste toepassingen 
voldoende zijn. Echter wiL men b.v. de 
moge l i j kheden van een analoge monitor 
volledig benutten dan moet men zeker 256 
kleuren kunnen aansturen, U kunt nu zelf 
uitrekenen hoeveeL bitmaps er nodig zijn 
n l. 1 280 X 1 024 X a Het tota Le geheugen 
bedraagt 1.32 Mb. Mischien bent u wel 
eens in een specificatie teqengekomen de 
uitdrukking 256 kleuren uit een PALET 
van 262144 kleuren, of 64 grijs tinten. 
Het principe hiervan is dat men een 
kleuren-tabe L laad (load coLor tabLe) 
die zo groot is als de binaire combina- 
ties van het kleuren register, di t regi- 
ster noemt men nu "KLEUREN TABLET". In 
ons voorbeeld zijn er 262144 kleuren 
ge Laden, hi erui t kunnen 256kleuren wor- 
den gekozen, en vervolgens worden weer- 
aegeven op de monitor, precies zoals de 
Kunst sch i Lde r zijn kleuren ki est van 
zijn schi Iders-pa let. Het kLeuren regis- 
ter ziet er als volgt uit: 



I RRRRRR I GGGGGG I BBBBBB I 18 bits 



Het zijn 6 bits rood 6 bits groen 6 bits 
blauw, en zoals eerder omschreven kunnen 
wij met 1 bit van de kleuren RGB zonder 
i ntensi tei t-bi t 8 kLeuren maken, dus 
kunt u zeLf uitrekenen dat 18 bits RGB 
262144 kleuren combinaties opLeveren. 
Voor grijs-tinten moeten we altijd ten- 
minste T bit rood 1 bit groen en 1 bit 
blauw gebruiken dus zijn er slechts 64 
combinaties mogelijk. Over Grafische 
software-tools zoals GKS (Graphic Kernel 
System ) heb ik nog niet gesproken, 
misschien dat ik over dat onderwerp nog 
eens een appart artikel pubLiceer. 

Rinus Vleesch Dubois. 
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DE VIDEO COMTROLLER CRT 9028/9128. 

P. de Vries 
Karperstraat 12 
5022 HJ Tilburg 
013-355311 

(Door de redactie bewerkt). 

De CRT 9028 is geschikt voor computersy- 
stemen met als CPU een 8085, 8086, Z80 
etc. De CRT 9128 is geschikt voor de CPU- 
types 6502, 68000, Z8 etc. Verder zijn de 
chips nog onderverdeeld in diverse func- 
tietypes met diverse beeldf ormaten, aantal 
dots per teken enzovoort. Met 1C is 
masker-programmeerbaar waardoor de diverse 
functietypes door de fabrikant op eenvou- 
dige wijze ingeprgrammeerd kunnen worden. 

De CRT 9128-0000 produceert 80 tekens per 
regel, 24 regels + een statusregel per 
beeld . 

Mogelijkheden. 

De chip heeft de volgende mogeli jkheden: 
Video-attributen : 

Teken-onaf hankeli jke attributen zoals 
cursor-blok of -lijntje, cursor-onderdruk- 
king en inverse video. 

Teken-af hankeli jke attributen zoals teken- 
onderdrukking, teken reverse, teken-onder- 
lijning en helderhei dsbeinvloeding van een 
teken . 

Alf anummerieke en grafische mode: 

In de alf anummerieke mode kunnen de video- 
atrributen werkzaam zijn. In de grafische 
mode kunnen we drie types onde r scheiden. 
In de eerste plaats is dat een alfanum- 
merieke mode die zich van de normale alfa- 
nummerieke mode onderscheidt in het feit 
dat dat de video-attributen niet werkzaam 
zijn, ook al zijn ze door het programma 
geactiveerd. Verder zijn er een smalle en 
een brede grafische mode. De grafische 
tekens in deze modes zijn opgedeeld in 
segmenten die in of uitgeschakeld kunnen 
worden. In de onderstaande figuren is 
aangegeven hoe deze segmenten over het 
teken verdeeld zijn: 
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Scrolling : 

Het 1C heeft zowel een jump scroll als een 
smooth scroll mogelijkheid. De jump scroll 
is de normale scrollprocedure, dus regels 
worden in hun geheel naar boven of naar 
beneden over het scherm bewogen. Bij 
smooth scroll worden de regels steeds met 
enkele video-lijnen tegelijk verplaatst, 
totdat het hele beeld een regel 
opgeschoven is. 

Statusregel: 

Voor functietypes die 25 regels per beeld 
hebben, is de statusregel aan- en uitscha- 
kelbaar . 

Schakeling in een 6502-systeeia. 

Uit fig. 7 blijkt, dat de schakeling zeer 
eenvoudig is en maar weinig componenten 
nodig heeft. Bekijkt men het blokschema 
van de chip (fig. ]), dan ziet men direct 
dat de character-generator, het video- 
schuif register en de dat amultiplexer al in 
het 1C zijn ingebakken. Gaan we terug naar 
fig. 7, dan zien we dat de CPU, via D2 
(CRT 9128) data van of naar het video-RAM 
D3 transporteert . D1 is een adresdecoder 
die gemaakt kan worden met NANDs, compara- 
toren enz. enz., de keuze hangt af van hoe 
het systeem is opgebouwd. 

Hetzelfde geld voor D3. Hiervoor kan elke 
inverter-buffer gebruikt worden mits deze 
voldoende stroom kan leveren om het weer- 
standsnetwerk te kunnen aansturen. Ik heb 
de volgende IC's gebruikt: 3 * 74HC85 (4 
bits magnitude comparator), 1/2 * 74HC20 
(dual four input nand gate) en voor D3 1 * 
74HC240 (octal inverter buffer). 

Programmeren van het 1C. 

Het programmeren van het 1C bespreek ik 
met behulp van de figuren 2 t/m 6c. 

Figuur 2: Registeradresering. 

Hier is niet veel meer over te vertellen 
dan dat het op dezelfde wijze gebeurt als 
bij de 6845 of de 6545. Zoals men in 
figuur 2 ziet, is het dataregister 
geschikt om in te schrijven en uit te 
lezen. Dit is echter niet geheel waar want 
bekijkt men figuur 4, dan ziet men dat 
alleen het character-register deze eigen- 
schap heeft. In de overige registers kan 
men alleen data schrijven en niet eruit 
lezen. Verder kan men in het adresregister 
alleen schrijven en men kan alleen lezen 
uit het statusregister. 

Figuur 3: Statusregister. 

Bit 7 van het statusregister, het DONE-bit 
is alleen van belang, de rest is don't 
care. Is bit 7 een "1", dan is de video- 
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chip bezig met videobesturing. Is dit bit 
een "0", dan staat het 1C dat ave randering 
toe in de registers CURH1, CURLO en 
CHARACTER. In de overige registers mag men 
de data veranderen, ongeacht in welke 
toestand bit 7 zich bevindt. 



Figuur 4: Dataregi sters. 

In deze figuur is een opsomming gegeven 
van de acht dataregisters met daarbij of 
er in het register lees en/of schrijf- 
operaties toegestaan zijn. Men selecteert 
een gewenst dataregister als volgt: 



LDA #06 
STA ADRES 
LDA #20 
STA DATA 



; adres Reset registers 
; zet in adresregister 
; dummy teken (spatie) 

; chip is nu gereset 



Hetzelf de geldt voor de overige dataregis- 
ters met uitzondering van de cursor- en 
characterregisters, dan laat men de boven- 
staande instructies vooraf gaan door: 



BERGOP : 

BIT STATUS ; bit 7 statusreg. 0? 
BM1 BERGOP ; nee, wacht dan 

Figuur 5 en 6: Dataregisters. 

CHI PRESET 

Het 1C wordt gereset als er een 
willekeurig teken in wordt geschre- 
ven. 



TOSADD 

Het TIM-bit is een raster scan-mode 
bit; TIM= 1 50 Hz, T1M = 0 60 Hz. Bit 6 
t/m 0 bepalen het startadres in het 
videoram voor de top van het scherm. 
Bit 6 t/m 0 bepalen sturen hierbij de 
lijnen DA10 t/m DAO aan. De lijnen 
DAS t/m DAO worden door de chip op 
nul gezet zodat alleen de startadres- 
sen 0, 16, 32 enz. tot 1920 mogelijk 
zijn. De statusregel 1920-1999 kan 
niet als beginadres geadresseerd wor- 
den . 



statusregel zetten. Bit 6 t/m bit 3, 
SS3 t/m SS0 , hebben invloed op de 
scrolling mode. Zet men deze bits op 
0, dan treedt er een jump-scroll op 
als het scherm geheel is volgeschre- 
ven met 24 regels. SS3 t/m SS0 bevat- 
ten in binaire code de eerste video- 
lijn die bovenaan het scherm staat. 
Verhoogt men deze code met X, dan zal 
het bee Id X videolijnen naar boven 
bewegen. Op deze manier kan men een 
smooth-scroll uit laten voeren. 

FI LADD 

Is het vuladresregister. Met behulp 
van dit register kan men het scherm 
geheel of gedeeltelijk wissen. Bit 6 
t/m bit 0 = DAI 0 t/m DA4 bevatten het 
eindadres , het cursoradres is het 
beginadres van het te wissen gedeelte 
van het scherm. Men hoeft slechts an 
maal een spatie ($20) in het 
CHARACTER-register te zetten om het 
gewenste gedeelte in zijn geheel te 
wissen. Ook hier worden de lijnen DAS 
t/m DAO op nul gehouden en mag ook 
niet het adres van de statusregel 
ingevuld worden. 

ATTDAT 

Het attribuutregister. Bit 7 = '0' 
betekent de alf anummerieke mode, bit 
7 = 'Y de grafische mode. Als bit 6 
t/m bit 0 alien '0' zijn, dan zijn 
alle attributen uitgeschakeld. Zijn 
echter £§n of meer van deze bits 'V, 
dan zijn de volgende attributen 
actief . 

A: de teken-onaf hankeli jke attri- 

buten . 

Bit 6: De cursor wordt onderdrukt. 
Door dit bit afwisselend '0' en 'V 
te maken, kan met de cursor laten 
knipperen. 

Bit 5: De cursor is een lijntje, 

normaal is het een blokje. 

Bit 4: Inverse video. 



CURLO 

Is een normaal cursor-register, die 
op de gebruikelijke wijze wordt gela- 
den. Bit 7 t/m bit 0 bepalen het lage 
byte van het cursoradres DA7 t/m DAO. 

CURH1 

Bevat de rest van het cursoradres 
namelijk bit 2 t/m 0 resp. DA10 t/m 
DA8. Bit 7, SLE, befovloed de status- 
regel. SLE= 1 statusregel is aan en 
doet niet mee als er een scroll op- 
treedt. SLE=0 statusregel is uit maar 
nu scrollt de statusregel wel mee. 
Echter, men kan nu geen tekens op de 



B: De teken-af hankeli jke attributen. 
Om deze te laten werken, moet boven- 
dien het TAG-bit van het CHARACTER- 
register op 'Y gezet worden. 

Bit 3: Teken-onderdrukking. Hiermee 
kan men dus een teken laten knip- 
peren. Ook kan men een geheime tekst 
op het scherm zetten die een ander 
bijvoorbeeld niet mag lezen. 

Bit 2: Intensiteit d.w.z. het teken 
wordt helderder dan de andere tekens 
indien men INT-OUT (fig. 7) op de 
aangegeven wijze aanstuurt. Laat men 
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een inverter weg, dan wordt het teken 
minder helder dan de overige tekens. 
Bit ]: Het teken wordt onderlijnd. 

Bit 0: Het teken staat inverse t.o.v. 
de andere tekens. 

CHARACTER 

Dit register bevat een TAG-bit, bit 
7, en nog zes andere bits die een 
mode-af hankeli jke betekenis hebben. 

A: Alf anummerieke mode (bit 7 in het 
att ri buut = 0) . 

Is het TAG-bit nu een ']' dan worden 
de gekozen teken-af hankeli jke attri- 
buten in het at t r i buut - reg i s t e r 
actief. In bit 6 t/m 0 is het ASCI1- 
teken gecodeerd. Ook de controle- 
tekens zijn toegestaan en worden als 
een teken op het scherm weergegeven. 

B: Grafische mode (bit 7 in het 

attribuut-register = I). 

Als het TAG-bit = ']', dan zit men 
toch weer in een alf anummerieke mode, 
echter nu met dien verstande dat de 
attributen nu niet meer werkzaam 
zijn. Is het TAG-bit = 'O', dan zit 
men pas echt in de grafische mode. 
Hierin geeft W/T (bit 6) aan of men 
in de brede of in de smalle grafische 
mode zit. De rest van de bits geeft 
dan aan welke segmenten aan en uitge- 
schakeld moeten worden. 



Bij het experi menteren met het 1C ben ik 
enkele eigenaardighedenheden tegengekomen. 
Het blijkt dat als bit 7 van CURHI '0' is, 
de statusregel inderdaad niet te zien is 
als het beginadres 0 is. Is echter het 
beginadres ongelijk aan nul, dan is de 
statusregel wel zichtbaar maar de tekst 
die, volgens mij, nu op regel 24 staat is 
niet te zien. Pas als de hele regel volge- 
schreven is of als men via een return een 
scroll uit laat voeren, dan is de onzicht- 
bare regel zichtbaar geworden. Uit de 
datasheet heb ik niet op kunnen maken dat 
het 1C zo zou moeten functioneren en hoe 
het 1C anders geprogrammeerd zou moeten 
worden want men wil toch graag zien wat 
men intypt en niet pas na een scroll. 

Een tweede eigenaardigheid ontdekte ik 
toen ik de cursor op de statusregel gezet 
had en per ongeluk het commando wis scherm 
vanaf de cursorposit ie tot het einde inge- 
geven had in plaats van het commando om de 
statusregel te wissen. De video-processor 
wiste het hele scherm, met inbegrip van de 
statusregel en de cursor. Verder bleek dat 
hij op geen enkel commando meer reageerde, 
zelfs niet meer op reset. Nadat de voe- 
dingsspanning enkele tijd uitgeschakeld 
geweest was, reageerde de processor weer 
normaal . 

De grafische mogeli jkheden heb ik nog niet 
geprobeert omdat ik eerst mijn computersy- 
steem verder op wil bouwen en omdat je 
voor normaal programmeren de grafische 
mode niet echt nodig hebt. 



Ervaringen . 

0m met de chip te kunnen experimenteren, 
heb ik het 1C opgenomen in mijn AIM-65 
systeem. Verder werd er een apart 
toetsenbord waarop ook de klelne letters 
ingegeven kunnen worden op het systeem 
aangesloten. Door middel van een programma 
dat afgeleid is van de 10-65 uit DOS-65 
kan het IC aangestuurd worden. 



Persoonlijk vind ik de CRT 9128 een prach- 
tig IC. Ik vind het alleen vervelend dat 
als ik de statusregel uitschakel ik niet 
meer kan zien wat er ingetypt wordt. Ik 
heb van alles geprobeerd maar kom er niet 
uit. Misschien dat Wn van de andere leden 
mij kan helpen. 

Het 1C is o.a. verkrijgbaar bij de firma 
Aurima in Eindhoven, telefoon 040-816565. 
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KARAKTER5ENERATOR < 2 > 

B. de Bruine 5-3-88 



Met de viditel karaktergenera tor is he t mogelijk om een grafisch 
scherm van 160x72 pixels op te bouwen. Hoe dit in zijn werk gaat 
beschrijft dit artikel. 



Indeling van he t graf ische scherm 
Voor tekstgebruik is het scherm ingedeeld 
24 vertikale vakjes. (fig. 1) Op 
iedere positie kan men een 
karakter printen, bijvoorbeeld 
een letter of een cijfer. Door 
nu een blockgraphic te printen 
bestaande uit 2 horizontale en 3 
vertikale eenheden, word de 
resolutie vergroot tot 160 bij 
72. 



in 80 horizontale, en 



Het plo tten van een beeldpunt 
Het leuke van de 
vidi telkaraktergenerator is de 
logische indeling. Ieder 
beeldpunt in de bitmap (fig. 3) 
heeft een waarde (fig 5.) 
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Fig . 1 

Schermindel ing pixels 



Zo heeft j^j de waarde 1, en ^ de waarde 2. Een spa tie heeft 

gewicht 0 en een inverse spatie 63.Wil men nu S printen, dan kan 
deze graphic samengesteld worden uit de pixels (1,1) en (2,1). 
Dat betekend: 

+ ffl = E 



oftewel 1+2 
dat is 0000 0001 



OR 



Grafische coordinaien C 160 ,? 2 ) 

'J' 

Tekstcoordinaten C 80 , 24 ) 

B i tmapcoord i naten C 2 , 3 ) 



Fig. 2 printmethode pixels 



0000 0010 = 0000 0011 

Door de te plotten beeldpunten 
binnen een blockgraphic te ORen 
met de bitmatrix, ontstaat de 
code van de blockgraphic. Is 
deze blockgraphiccode eenmaal 
bekend, dan hoeft men alleen nog 
maar de grafische coordinaten om 
te zetten naar tekstcoordinaten, 
zodat men met een 



cursorbes tur ingscommando (b.v. CURSOR TO in basic) de cursor kan 
plaatsen en de berekende blockgraphic kan printen. De conversie 
van grafische- naar tekstcoordinaten binnen een scherm gaat 
alsvolgt : 

H0=INT( (GH0+1 )/2) 

VE=INT( (GVE+2)/3) 

0m de positie van het 
beeldpunt binnen de 
elementaire matrix te bepalen 
gebruiken we onderstaande 
f ormules : 
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if GHO > 2 then 



if GVE > 3 then 



repeat MH0=GH0-2 
until MH0<=2 



repeat MVE=GVE-3 
until MVE<=3 



GHO=graf i sch horizontaal 
GVE=grafisch vert. 

MHO=matrix hor. 
MVE=matrix vert. 

HO=tekst horizontaal 
VE=tekst vertikaal 
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Fig. 5 De uaarde van de zes mogelijke 
pixels in de basismatrix. 



Fig. 3 Bitmap van MHO,MVE geeft de positie aan in de 
de basismatrix basismatrix. Wat hierboven gebeurd is niets 

meer dan het terugbrengen van de 
beeldcoordina ten totdat de kleinstmogelijke 
matrixcoordinaten gevormd zijn. Door voor horizontaal er steeds 
twee , en vertikaal er steeds drie af te trekken ontstaat sen 
matrix met basiscoordina ten zoals beschreven in fig. 5* Hiermee is 
ook de positie van het beeldpunt vastgelegd. 

Voorbeeld: Plot een punt op GH0=7 , GVE=5 
l 2 3 ly MHO= 7-2-2-2 = 1 



. MVE= 5-3=2 

'$*> | / 3 3 H g ^ | ? basiscoordina ten (1,2) 
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Vervolgens berekenen we de tekstcodrdina ten; 
HO=INT( (GHO+1 )/2) = INT( (7+1 )/2) = 4 
VE=INT( (GVE+2)/3) = INT( (5+2)/3)= 2 

Het punt kan nu geplot worden: 

CURSOR TO (4,2) 

BL=QC( 4 , 2) OR QM(1 ,2) 
PRINT BL; 



Fig . 6 

Pixel op leeg scherm 



Hierin is QC een array die het grafische 
scherm bevat. QM is de basismatrix, zoals 
gedefinieerd in fig. 3 en fig. 5. Plotten 
we een punt op een leeg scherm dan wordt 
QC( 4 , 2 ) =QM( 1 , 2) =4 . Maar stel dat we het volgende al op het scherm 
hadden staan: 
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Er is al een punt geplot op (GH0=7, GVE=6) 
en een op (GH0=8, GVE=4). Uitgedrukt in 
teks tcoordina ten staat er op (H0=4, VE=2) 
de blockgraphic $12 geprint. Opnieuw gaan 
we nu een punt plotten op GH0=7, GVE=5. 
CURSOR TO (4,2) 

BL=QC( 4 , 2 ) OR QM( 1 ,2) 

PRINT BL; 

QC(4,2) = $12 0001 0010 
QM( 1 ,2) = $04 0000 0100 

-- OR 

BL = $16 0001 0110 , en dat is |[] 



a. ) 

b. ) 



Er ontstaat graphic $16. Het klopt ! Door 
altijd te ORren (tekenen) of te ANDen met 
het complement (uitwissen) met de huidige 
van die coordinaat kan ieder willekeurig beeldpunt geprint 
met deze methode. Daar de graphics in de VDUeprom iets 
opgeslagen zijn als de standaard vidi telcodes , dient men 
volgende conversies uit te voeren: 

Als de graphiccode ^ $1F dan is de graphic te vinden op 
positie 255 - (berekende graphiccode OR 32) 

Als de graphic een van de vier ui tzonderingsgraphics is (FF, 
CR, LF en ESC) dan moet die code omgezet worden naar de 
bijbehorende code. Een oplossing hiervoor is gegeven in LIST 1 
De basicregels 750... 770 presenteren dezelfde methode in List 



Fig . ? 

Pixel toevoeging 

waarde 
worden 
anders 
nog de 



Plotroutine in basic 

In listing 2 staat een plotprogramma in basic. Het array QC bevat 
het grafische scherm. Het array QM is de basismatrix. Iedere 
coordinaat correspondeer t met de code van een pixel. Subroutine 
600 vult het array met nullen, en veegt zo het grafische scherm 
schoon. Na regel 1000 staan een paar demonstratieprogramma ' s : 
1010: Plot een beeldpunt op positie 10,10. 

1500: Trek een horizontale lijn op GVE=36 van GH0=1 tot 150. 

1600: Teken een sinus. 

1700: Wis de lijn die geplot is met regel 1500-1530 

De regelnummers en variabelenamen zijn zodanig gekozen, dat ze 
geschikt zijn voor opname in de basicode-3 subroutines. Wil men 
deze plotroutine gebruiken voor basicode-3 dan moet de invoer van 
de coordinaten wel plaatsvinden in een percentage 0..1 (dat is 

0. .100.) Men dient er rekening mee te houden dat een 
plotroutine in basic met een grafisch array erg traag werkt. Als 
men een snel grafisch scherm wil hebben, moeten de volgende 
aanpassingen gepleegd worden: 

1. Omzetten van basic naar machinecode, 

2. In plaats van een grafisch array (QC), direct het 
videogeheugen gebruiken. 

Om het grafisch scherm enigszins te normaliseren ligt het voor de 
hand om de plotcommando ' s conform het basicode-3 protokol te 
laten verlopen. Wie durf t. . . 

Het basicpr ogramma staat op het KIM BBS in de basicarea (15) 
onder de naam PLOT. demo. 
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D65C0R ; Special char. dec. dos 65 

; Converts graphic characters 





; To the 


position in chargen. 
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RTS 

List 1 : Conversie naar positie in udu-rom 



REH Plotroutine voor grafisch scherm in Dos-65 basic V2.00 

REM Er moet een v i d i te 1 karaktergeneratoreprom op de udukaart zitten. 

REM initialiseer uideoschermarray , definieer blockgraphicarray 

20 DIM QC ( 80 , 24 3 , QM ( 2 , 3 3 : ST= 1 /96 : GR=l/72 

21 QMC 1,13=1: QMC2,13=2: QMC1,23=4: QMC2,23=8: QM(1, 33=16: QMC2, 33-64 

22 H0=79 : UE=23 
30 GOTO 1000 

REM Zet de grafische mode uit 

10 1 PR I NTCHR$ C 27 3 ; : PR I NT "G” ; : RETURN 

600 REM zet grafisch scherm aan, 

601 PR I NT "Even geduld...” 

602 FOR T I = 1 TO 80 

605 FOR PI = 1 TO 24 

606 QCCTI , PI 3=0 : NEXTPI : NEXTTI 
608 PRINTCHR3K 123 ; 

REM Zet de grafische mode aan 
612 PR I NTCHR$ ( 27 3 ; : PRINT”F” ; 

615 RETURN 



en uis het 
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REM Plot een punt op positie AT , AS ==CHO,UE) 

REM Als CN=0 schermpunt uord aangezet (uoorgrondkleur) 

REM Als CN=1 uord het schermpunt uitgezet (achtergrondkleur) 

620 GOSUB 700: GOTO 705 

REM Kijk of de coordinaten binnen het scherm vallen 
700 IF AT >= 1 60THEN AT=1S0 
70 1 IF AS >=72THEN AS=72 

702 IF AT < 1 THEN AT=1 

703 IF AS< 1 THEN AS=1 

704 RETURN 

705 REM De plotroutine himself... 

706 TI = INTC CAT+1 1/21 : P I = I NT C CAS+21/35 

710 IF AT< =2 THEN 720 : REM zet grafische coord, om naar teksteenheid 
715 AT=AT-2 : GOTO 710 
720 IF AS< =3 THEN 730 
725 AS=AS-3: GOTO 720 

730 IF PI >24THENPI=24 : REM Grootst mogelijke uaarden HO,VE 

731 IF T I >80 THEN TI=80 

740 IF CN=0 THEN QC C T I , P I 1 =QC C T I , P I ) OR QM C AT , AS ) : REM Plot een punt 

745 IF CN= 1 THEN QCCTI , P I ) =QC C T I , P I ) AND (NOT QM C AT , AS ) ) : REM veeg een punt 

748 CURSOR TO PI ,TI 

749 GOSUB 612 

750 IF QCCTI , PI )=0THEN PRINT" " ; : GOTO 101:REM conversie naar exception graph 

751 IF QCCTI , PI )=10 THEN PR I NTCHR$ C 64 ) ; : GOTO 101 

752 IF QCCTI, PI)=12 THEN PR I NTCHR$ C &0080 ) ; : GOTO 101 

753 IF QCCTI, PI)=13 THEN PR I NTCHR$ C &007F 1 : GOTO 101 
755 IF QCCTI, PI) =27 THEN PR I NTCHR$ C &00FF ) ; : GOTO 101 
758 IF QCCTI , PI ) >C&001F) THEN 762 

760 PRINT CHR$C QC C T I , P I 1 + ASC C " A ” ) - 1 ) ; : GOTO 101 
762 AS=CQCCTI ,PI 50R32) 

764 IF AS= 1 270RAS= 1 28THENPR I NTCHR$ C &00 A0 ) ; : GOTO 101 
766 IF AS=255 THEN PRINT" " ; : GOTO 101 
768 AS=255— AS 

770 GOSUB 101 : PRINTCHR$CAS) ; :G0T0612 
REM Een paar demoot jes: 

1000 GOSUB 600 : REM uis grafisch scherm 
REM Demo plot een punt 

1010 CN=0 : AT=10 : AS=10 : GOSUB 620 : REM plot een punt op locatie 10,10 

REM Demo trek een horizontale lijn 

1500 FOR 1=1 TO 150 

1510 CN=0 : AS=36: AT=I : PRINTI 

1520 GOSUB 620 

1530 NEXT 



REM Demo teken een sinusgolf 
1600 FOR 1=1 TO 1 50 

1610 CN=0 : AT = I : AS= C S I N C I / 1 50 * 6 . 28 1 *72 ) *0 . 5 

1612 AS=AS+36 : REM Neem het midden v/h scherm als oorsprong 
1620 GOSUB620 : REM Plot de berekende punten 
1630 NEXT 



REM Demo uis de eerder getekende 

1700 FOR 1=1 TO 150 

1710 CN= 1 : AS=36 : AT= I 

1720 GOSUB 620 

1730 NEXT 

1 800 PR I NT "End demo" 

1810 END 



lijn 



u i t 



Lish 
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Karaktergenera tor ver sies 

Voor de elektuur VDU-kaart zijn verschil lende 

vidi telkaraktergeneratoren in omloop. De verschillen zijn mimiem: 

a. De octopus karaktergenera tor (zie 6502kenner 47, art. Coen 
Boltjes) Deze karaktergenerator bevat de eerste 32 block- 
graphics van $00 tot $20. Vanaf $20..$7F staat de octopus ASCII 
karakterset. De locaties $80..$FF bestaat ui t dezelfde data, 
maar nu in inverse video. De opbouw van de basisraatrix is 8x9. 

b. Vidi tel chargen VI. 0. Dit is een gemodif iceerde dos-65 
karaktergenerator. In plaats van de controlcodes , zijn nu de 
vidi tel bl ockgraphics opgenoraen. Er zijn vier ui tzonderingen: 



1 . 


De 


CR 


controlcode , 


2. 


de 


LF 


controlcode , 


3. 


de 


FF 


controlcode , 


4. 


de 


ESC 


! controlcode. 



Het is erg handig om deze graphics zichtbaar te maken als men 
met ED werkt, vandaar dat deze gehandhaaft zijn. De 
oorspronkeli jk viditelcodes staan op een andere plaats. (zie 
deel 1) Het raa trixformaa t voor de graphics is 8x9 

c. Viditel chargen V2.0 
Als VI. 0, maar nu met een 
mini-matrix van 8x10. Het nadeel van 
VI. 0 is dat de descenders van de g,j 
en p weg- vallen. Bij V2.0 is dit 
niet meer het geval. De indeling van 
de matrix is 3-3-4. 

d. Viditel chargen V3.0. Als V2.0, maar 
met minimatrix 3-4-3, geheel volgens 
de PTT-norm. 

Viditel chargen. V2.0 is de meest 
universele. Door de CRTC een scanline 
minder te programmeren fungeert de 
karakterma tr ix als 3-3-3 matrix. Dit 
heeft voordelen bij toepassingen voor 
een grafisch scherm. Bovendien valt het 
nauwelijks op, of men het middelste 
beeldpunt vetter ziet dan het onderste 
punt. 

<? 

Deel 1 is gepubliceerd in 6502 kenner nr. 34 



Opbouw van de mini-matrix in 6 x 10 matrix 




SCRED 3.2 

Er is een opvolger voor Sored 5.0 (Basic-editor) De nieuwe versie 
5.2 is alleen noodzakelijk indien men 1/0-65 V2.11 gebruikt. 

Sored 5.2 is onaf hankeli jk van 1/0-65 gemaakt . Bovendien is er 
nog een klein foutje uitgehaald. Bij de voorgaande versies was 
het niet mogelijk een karakter te inserten als de videopointer op 
de laatste regel stond. Nu kan dat wel. 

VIDITEL 2.2 

Ook viditel-65 V2.2 gebruikt een routine uit 1065, die niet in de 
jumptable staat. Bij gebruik van 1/065 V2.11 betekend dit, dat de 
CRTC-6845 niet correct geprogrammeerd staat na het verlaten van 
viditel, of bij het omschakelen van terminal- naar mainmode. 
Inmiddels is de ontwikkeling van de nieuwe vidi telversie al zover 
gevordert, dat het geen zin meer heeft de oude versie aan te 
passen. Viditel 3.0 word ook onaf hankeli jk van 1/065. Meer over 
viditel in een volgend nummer. 
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DOS65K 

This article is intended for those familiar with DOS65. For information about 
this english low-threshold-operation-system or english translation of article 
contact author. 

Author: Erik van den Broek Amsterdam, 10-3-’ 88 

le Atjehstraat 164 
1094 KX Amsterdam 
Netherlands 
tel 020 923237 

INLEIDING 

Dit artikel is nog niet ' af ' : op diverse punten zijn de aanpassingen van de 
E.C.65K aan de DOS65-conf iguratie nog niet geoptimaliseerd of getest: ACIA,RTC 
Deze optimalisaties zijn echter slechts 'het er uit halen wat er in zit' en 
niet noodzakeli jk om DOS65 op de 65816 te laten draaien. Voor het verder ver- 
beteren van het ontwerp, m.n. het verhogen van de klokf requentie tot 4MHz zijn 
expirimenten met een goede scoop en het verder uitwerken van de ti jdsdiagram- 
men (zie literatuuropgave) noodzakeli jk. Daar ik het nuttiger vindt om eerst 
software voor de 65816 te produceren, heb ik dit artikel nu reeds ter redaktie 
van de 6502-kenner gebracht. 

DOS 6 5 V2.01 kan op diverse conf iguraties geinstalleerd worden: 

JUNIOR, OCTOPUS, CPU-VDU, EC65K. Deze laatste, beschreven in Elektuur Compu- 
ting 4, is de mooiste, vanwege de volgende voordelen: 

1) Snel : 4Mhz klok * 

2) 16 Mbyte adresbereik, 16 bits, 8 en 16 bits accu en index-registers, 

256 instrukties, 24 adresserings-mogeli jkheden, 'zero-page' en stack overal 
in onderste 65K 

3) DMA en co-processing faciliteiten 

* Optioneel in deze beschri jving: hier 2 MHz. 

Dit artikel beschrijft de wijzigingen, die in het originele ontwerp dienen te 
worden aangebracht, opdat DOS65 kan worden geimplementeerd. Verder worden 
enkele geconstateerde f outen in het ontwerp behandeld . Als resultaat ontstaat 
een systeem, dat alle oude software in de 6502-emulatie-mode kan verwerken en 
'uitstapjes' naar de 65816-native-mode toelaat, om met 16 bits en 'hogere' ge- 
heugenbanken te werken. In een volgend artikel worden macro’s besproken, die 
65816-objectcode generen, zodat men ook de oude assembler kan blijven gebrui- 
ken. 

Noodzakeli jke literatuur: Elektuur Computing 4 

overige raadplegingen: E.C. 5 (noodzakeli jk bij 256k SRAM-kaart) 

E.C. 1 (opzetprint-interf ace van CPU) 

65816/65802 Assembly Language Programming 
door Michael Fischer 

Osborne / McGraw-Hill ISBN 0-07-881235-6 
(sterk aanbevolen, sterk duur (f 100,-)) 

A) De CPU-kaart (E.C. 4 pag 29) 

Deze kan in princiepe geheel ongewijzigd blijven, doch bevat van zichzelf 
een onvolkomenheid: de schakeling rond N31, welke een NAND imiteert, deugt 
niet: door de relatief grote stromen door D1 en D2 ontstaat soms een te grote 
spanningsval over deze dioden, waardoor het DIR-signaal naar IC8 niet goed ge- 
definieerd is. Oplossingen: 1) vervang D1,D2,R15 en N31 door een poort van een 
(extra) 74F00 of 2) laat N31 het werk van b.v. N23 doen en gebruik de vrij- 
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gekomen poort voor de NAND-funktie. 

De 1/065 EPROM wordt geleverd in een halfbenutte 2764, terwijl op de kaart 
slechts plaats is voor een 2732. Men kan zelf een 2732 programmeren, of IC 19 
met een tweede voet ophogen, de poten 1,2,27 en 28 boven IC 18 laten bengelen 
en verbinden met +5V. 

De CPU voorziet niet in de lk garbage-RAM, welke 1/065 nodig heeft op het 
bereik 00E400 - 00E7FF. Het eenvoudigst installeert men een half benutte 6116 
(dit bereik is 'slowed - down', dus de 6116 mag traag zijn) op een aparte 
print op de bus. Zie ook punt D5) verderop. 

DOS65 gaat uit van het gebruik van via's en de daarin aanwezige synchrone 
timers en schuif register . Het kloksignaal naar deze via's moet dus synchroon 
met de processorklok (en dus de ' valid-address-strobe ' ) lopen als de via's 
geadresseerd worden en altijd 1MHz (of altijd 2MHz) zijn. Men kan dus niet 
zomaar fase-F gebruiken, omdat dan niet aan de synchronisatie-voorwaarde is 
voldaan. De volgende schakeling deelt fase-2 door twee als er geen slow-down 
is en laat fase-2 ongemoeid tijdens s.d. Haal pin 13 van N6 uit de voet en 
verbindt met de schakeling. De flipflop moet snel zijn en kan dus niet 
1/2 IC 12 zijn; de NANDS zijn wellicht in de bij oplossing Al ingezette 74F00 
te vinden. 

Het zo ontstane fase-F signaal, wordt ook gebruik als kloksignaal voor de VDU, 
FDC, VIA'S en ACIA in de 4MHz versie. Komt er geen 4MHz op fase-2 voor, dan 
hoeven alleen de via's van een synchrone 1MHz (of 2MHz) klok te worden voor- 
zien. Bij gebruik van een grafische kaart kan pas optimale snelheid worden 
verkregen door een 4/2/lMHz versie te bouwen. Dit kan eenvoudig, door het sig- 
naal op pin 6 van N8 met een deler zoals de hier getekende f ase-2-deler , 
nogmaals door twee te delen als de grafische kaart geadresserd wordt. 




FIGUUR I (fase-f aanpassing) 
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P=«a XC1 pinIB 
A7 Bus pin 23a 
AB Bus pin 23c 






74LSS7 



-O ICS 



-O ICS 



-O ICli 



-O IC12 



pin3 

pin2 

pin24 

pin24 



A4 Bus pin 24c 
56 ICS Pin4 



AS Bus pin 24a 



M XC4 pinii 




UiA = 1/3 74LS27 

USA. USB, UEC = 3/4 74CS00 



FIGUURX(ADRESDECODERTJE) 



N.B.: Alle ic's op deze kaart,dus ook IC1 mogen LS-typen zijn. 

B) De PSIO-RTC-kaart: 

Voor minimaal funktioneren van DOS65 is slechts een via (of zeifs pia no- 
dig voor I/O (toetsenbord) . Men heeft dan echter geen modem, printer, etc., 
aansluiting. Beter is dan ook, de opzetprint van de CPU uit E.C.l, met uit- 
breiding van een konnektor en het verderop beschreven decodertje, te gebruiken 
(Zie voor de klok-ingangen van de VIA's onder A; er moet wellicht ook nog een 
' page=$EO-signaal 1 en een ' bank=0-signaal ' gefabriekt worden indien ze niet 
reeds bestaan) . Deze methode is niet getest, maar is op de RTC na identiek aan 
de PSIO-RTC-kaart. Men kan ook (zoals ik) een gewijzigde PSIO-RTC-kaart bouwen 
Wijzigingen: 

Haal van IC 8 pin 2 EN PIN 3 uit de voet en verbindt met decoder; idem 
IC 2 pin 3, haal van IC 2 pin 2 uit de voet en verbindt met IC 4 pin 12/13. 
Plaats de jumpers A9,A10,A11,A12. Monteer voor IC 11 en IC 12 VIA's 65(022 
i.p.v. PIA's. Laat de volgende pinnen naar buiten hangen: 
21,22,23,24,25,35,36,37,38. Verbindt ze nu als volgt: 

21 < — > IRQ (=bus 12a) 

22 < — > R/W (=IC 4 pin 6) 

23 < — > adresdecoder (zie verderop) 

24 < — > adresdecoder (zie verderop) 

25 < — > fase-F (=bus 28a) (zie onder A) 

35 <--> A3 (=bus 25a) 

36 < — > A2 (=bus 25c) 

36 < — > A1 (=bus 26a) 

38 < — > AO (=bus 26c) 

Door de klok-ingangen van deze VIA's, zoals hier aangegeven, met de aangepaste 
- zie onder A) EN ONDER D5) - fase-F i.p.v. fase-2 te verbinden, zijn de 
timers en schuif registers ook bij slow-down weer goed te gebruiken. 



43 



XEDHB 




US KT 3Bf HB US 



Hardware 



C) DE 256K SRAM-KAART 

Om met een klokf rekwentie van 4Mhz te werken, moet er snelle SRAM gebruikt 
worden, hetgeen op diverse kaarten kan, mits snelle poorten gebruikt worden 
(F, S of AS typen). Het kan o.a. met de 256K SRAM-kaart uit E.C.5, hoewel deze 
kaart niet zondermeer bij een 6502, OF ZELFS DE 65816 IN EMULATXE-MODE 
gebruikt kan worden, omdat hij op de databus ook het gemultiplexte banksignaal 
verwacht. Na een reset {waarna de 65816 automatisch emuleert) moet dus eerst 
een registerinhoud naar IC2 geschreven worden, voordat de kaart gedefinieerd 
is. Oplossingen: 

1) Gebruik de kaart met 6264 SRAM's, verwijder IC 2 en IC 3, verbindt van voet 
van IC 3 pin 1 met pin 19 en leg de jumpers g,h,i, j ,q,s,t,u,w,y. De kaart ligt 
nu altijd in het onderste 64k bereik. Zie ook verder onder punten D) 2) en D) 3 ) 

2) Gebruik een andere (snelle) kaart voor bank 0 (die ook alleen maar geadres- 
seerd wordt als er in die bank gewerkt wordt) en de 256K kaart elders (niet 
getest) . 

3) Schakel bij emulatie (buspin 27c is dan laag) , middels een 74F157, over op 
wijziging Cl (niet getest) . 

D) OVERIGE OPMERKINGEN 

1) Op geen enkele kaart mogen de busaansluitingen 16a en 16c met massa verbon- 
den zijn. Dit zijn namelijk (de enige) niet compatibele pennen t.o.v. de oude 
elektuurbus . 

2) Voor alle in deze en Elektuur bouwbeschri j vingen genoemde F-typen kan men 
ook S- of AS-typen gebruiken. Deze zijn nog iets sneller, maar gebruiken 
(vooral S) meer stroom: F:0.8 mA/poort, AS: 1.5 mA/poort, S: 4 mA/poort. 

3) Ter voorkoming van beeldruis kan men de CPU synchroniseren met de VDU. Zet 
dan het 16MHz signaal van de VDU op fase-H (=buspin 30c) en deel tot 8 MHz 
m.b.v. CPU-kaart IC 12: haal pin 6 en pin 8 van IC 1 uit de voet en verbindt 
van IC 12 pin 8 met pin 12, pin 11 met fase-H (=buspin 30c) en pin 9 met pin 1 
van IC 2. 

4) Verbindt de huisjes van kristallen altijd met massa (zonder ze te verhit- 
ten) , alleen dan werken ze betrouwbaar. 

5) Met slow-down op het gehele adresbereik 00E000-00FFFF (b.v. door jumper u 
op de 256K SRAM-kaart) wordt wat betreft snelheid niet het onderste uit de 
kan gehaald. Met name de beeldschermroutines van de I/O EPROM zorgen er voor, 
dat indien men, b.v. tijdens assemblage, op het scherm wil volgen wat er ge- 
beurt, de tijdwinst gering is. Een eenvoudig expiriment (dat bij iedereen an- 
ders kan uitpakken) met selektievere vertraging, kan hier wonderen doen. 

Bij mi j bleek bij 2MHz in het geheel geen slow-down nodig, ook niet bij ge- 
bruik van n-mos 6522 . De definitieve kloksnelheid zal dus 4/2MHz kunnen 
worden, daarover later. 



053-303902 

Het 6502 Info Board 
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Bespiegelingen 65(C)02-'88++ 

Als je, zoals ik, lid bent van een compu- 
terclub lijk je na een aantal jaren vast 
te lopen. Weet je ook van te voren. Geen 
man overboord, maar ook niet echt leuk. 
(En van nevenef f ecten, die hierdoor onwil- 
lekeurig groeien in zo'n sfeer is nogal 
wat te merken geweest binnen deze club. 
Ook niet echt bouwend aan het geheel.) 

In computerland gaan alle dingen zo snel, 
dat zefs profs moeite hebben het tempo bij 
te houden. Tegen de tijd, dat je eniger- 
mate vertrouwd begint te raken met jouw 
systeem komt er weer een nieuwe klasse 
hard- en software. Heb je dan nog lets aan 
jouw club, of moet je er maar mee ophou- 
den? 

Dat zou het langzaam doodbloeden van die 
gebruikersclub kunnen impliceren. Ook geen 
wereldschokkend nieuws, maar is dat nou 
nodig? Zouden er niet slimmere dingen met 
zo'n club mogelijk zijn, dan hem na een 
aantal jaren naar de vergetelheid te ver- 
wijzen? (Onder het b.v. vreemd schrijven 
over 'gladde Dos-fe 5'- j ongens en opmerke- 
lijke teksten over andere p r ogrammeer- 
talen . ) 

Een processor is met zo'n tien jaar verou- 
derd, het systeem, waar mee gewerkt wordt 
blijkt plotseling tien keer kleiner dan 
erg goedkope f abrieksmachines (waar op een 
'kwade' dag iedereen mee schijnt te wer- 
ken, voornamelijk IBM, als wij de HCC 
mogen geloven). De performance van de 
club- software is op zijn minst beduidend 
krakkemikkiger , dan voordelige pakketten 
voor eerder genoemde f abrieks-hardware. 
Aansluiten op een standaard is moeilijk. 
Gerommel binnen de club met hard- en soft- 
ware maken jouw eigen voortgang er ook 
niet beter op enz. 

Op het moment, dat een dergelijk gevoel je 
besluipt (wat heet, over je heen waist, 
als je bij voorbeeld eens in 'n HCC-af le- 
vering kijkt) dan moet je zin en onzin van 
elkaar gaan scheiden. Dat gevoel krijg, je 
m.i. n.l. door problemen met de huidige 
spullen en daar tegenover verleideli jke 
reklame uit comput ergebi eden , waar we 
eigenli jk geen of nauwelijks belangen 
hebben. (Wellicht eventueel later). Of het 
moet zijn dat je echt een grote machine 
nodig hebt bv. voor studie. (Fortran, 
Modula, Pascal enz.) Of als een computer 
lets anders voor je is, dan een leuk hard- 
of /en soft ware-experiment eerter rein. 

Der halve, vervolgens het volgende. 



Waarom wordt er gecomputerd? 

Wei, omdat het moet in een bedrijf. (Voor 
hogere efficiency en zo...) Dat vereist 
gest andariseerde hard- en software van 
ruime omvang, met snelle CPU's en grote 
back-up liefst gekoppeld aan netwerken (en 
multitasking natuurlijk). Begrip van het 
onderliggende systeem op machineni veau is 
niet nodig en ook niet interessant. De 
hobbyist zal hier over het algemeen weinig 
aan hebben. Het terrein van de informati- 
cus, de bedrijf smatige gebruiker etc. 

Dan is er de video-sector, de medische 
sector, de CAD-CAM etc.-sector. Daar moet 
men ontwikkelen met geavanceerde digi- 
video-systemen. Minstens even zware eisen 
als hiervoor. Ook hier ligt de nadruk op 
applicatie. Te duur voor de hobbyist en 
nauwelijks zinnig toe te passen in de 
prive-sf eer . 

Vervolgens de half prof- half hobby-sec- 
tor. Deze mensen kunnen het beste een 
apparaat kopen, dat zoveel mogelijk ruimte 
biedt voor alle experimenten naast prof- 
gebruik. Hardware-bouw is nihil, en in het 
gunstigste geval programmert men in een of 
meer talen en draait verder applicatie- 
software. (Bv. '88 Atari ST's, Amiga en 
Schneider). In meer of mindere mate kan er 
bij deze gebruikers echt noodzaak zijn, te 
werken met een dergelijke ruime "environ- 
ment". Maar veelal zijn er ook andere 
redenen. Sommige gebruikers uit deze cate- 
gorie zijn onderhevig aan wat ik zou wil- 
len noemen "mode-invloeden". Bij nieuwe 
spectaculaire ontwikkelingen wordt de com- 
puter snel tweede hands verkocht of gaat 
de kast in en spoorslags wordt het nieuwe 
spektakel in huis gehaald. Of deze compu- 
teraar in staat is geweest de vorige 
machine tot op de bodem aan te spreken? 
Vrijwel nooit. Laat staan ] Meg met 200k 
operating system.. Beetje onrustig. Arme 
64k machines.. Vaak weet men overigens 
vaak wel uitstekend, hoe men zijn vrienden 
en neefjes met het nieuwe moet imponeren. 
Nou ja... als dat dan gelukkig maakt, 
vooruit dan maar. 

Wel interessant materiaal voor een hob- 
byist of student, die zich serieus met 
grote compilers of interpreters wil be- 
moeien. Minder voor diegenen, die de com- 
puter hard- en sof t ware-mat ig naar een 
echt eigen configuratie wi lien laten 
groeien . 

Verder maar met de prof essionele program- 
meur / analist . Deze systeem/applicatie- 
ontwikkelaar moet juist wel een behoorlijk 
begrip van onderliggende processen hebben. 
En de overkoepelende bedrijf svormen. Met 
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hardware bemoeit hij zich matig. Hij denkt 
in grote hardwareblokken. Deze materie is 
omvangrijk. Hij gebruikt liefst gereed- 
schappen, die zoveel mogelijk machine- 
onaf hankeli jk zijn (C, Fortran, Assembler, 
tools). Toch ook wel interessant voor de 
hobbyist. Het zou aardig zijn als de hob- 
byist met eventueel minder omvangrijke 
compilers (of interpreters) een kijkje zou 
kunnen nemen in dat keukentje. Dus klei- 
nere versies van prof-gereedschappen zijn 
wel degelijk van belang binnen computer- 
clubs . 

Dat is dan duidelijk. Waar gaat het nu 
eigenlijk om. 

Om ons. Voor de 6502-Kenners zijn er 
eigenlijk geen grenzen aan te geven. 
Zelfbouw kan. Je kunt ook een grote moder- 
ne machine kopen. Prof essionele toepassin- 
gen zijn er in ons geval vrijwel niet. Het 
is dus de vraag of IBM etc. voor de hobby 
zinnig is. Hobbymatig is er echt weinig 
aan te beleven. Of het moet voor studie 
van programmeertalen zijn of zoiets. 

Goed. Stel ik blijf het doen met mijn 64k- 
bakkie. Hard- en sof tware-ondersteuning 
binnen de club moet dan wel optimaal 
zijn!!, anders gebeurt het volgende. 

Een goede Hobbyist snuffelt net zo lang, 
tot hij automatisch aan een andere compu- 
tercluster raakt. Zo heb ik het ervaren. 
Als hij het niet bij de eigen club vindt, 
stapt hij op. Voor je het weet wordt een 
Atari of een kloon gekocht. En hoewel het 
niet nodig is, verlaat hij zijn oude club 
vrij snel en sluit zich aan bij een 
nieuwe . 

Ik kocht naast mijn Ohio en Dos-65 1.0 -> 
2.0 systemen een IMeg Atari met veel ta- 
len, literatuur enz. Geen onvolledige 
interpreters, alle talen beschikbaar, 
ruim, volledig en nu maar programmeren. Of 
er een wereld voor je opengaat. Wat heet! 
Motivatie daartoe: onvrede. (En in mijn 
geval studieneiging.) Als de ondersteuning 
beter zou zijn geweest binnen deze club, 
dan had ik nog gewacht met een dergelijke 
aankoop. Ondertussen ben ik toch nog maar 
lid gebleven. Maar voor een heel groot 
deel uit een ouderwets soort trouw, er 
zitten aardige mensen in en misschien gaat 
het nog eens beter lopen binnen de club. 

Had allemaal niets te maken met technolo- 
gie-ont wikkeli ngen. Ook niet met hyste- 
risch geschreeuw in HCC- art ike len en 
reklame ! 



IBM-gebruikers hebben andere noden als ik. 
Een duur CAD-CAM-systeem hoef ik niet. 
Maar een onaf Basic of Forth, dat op Dos 
65 1.0 draaide en niet op 2.0, maakt je 
ziek. Geen Tiny-Pascal voor 2.0 of zoiets 
is onzin. En struikelen over de bugs in 
Ohio-applicaties (vroeger) geeft ellende. 
De oude programme's allemaal moeten 
converteren, omdat 'n oude programmeertaal 
niet meer op een 65(C)02 hardwaregemodif i- 
ceerd systeem wil draaien, terwijl je die 
programmatuur dagelijks moet gebruiken, is 
bijna een ramp. En een niet af Basic is 
zielig. En dan nog gebruikers-onvriende- 
lijkheid in programma's. Dat alles is 
tegengesteld aan de regel, dat de computer 
uiteindelijk het werk moet doen bij appli- 
catie-gebruik en niet de gebruiker! En 
elke systeemsof tware, die niet in orde is 
zelf op machineni veau in orde maken, is 
belachelijk of nauwelijks te doen en we 
hebben wel andere besognes. Hoe leuk ook 
dat zelf ontwikkelen. 

Dus HCC goes IBM? So what! 30k vrij te 
klein? Nou, probeer zoiets maar eens zin- 
nig vol te programmeren. 65(C)02 weg- 
gooien? Welnee, meestal ruim voldoende 
voor de job, die jij er mee wilt doen. Als 
je maar slim programmeert ! In de industrle 
wordt het raerendeel van de besturingspro- 
cessen met dit soort processors en weinig 
geheugen gedaan. Zin en onzin, daar gaat 
het hier dus om. Wat let je, toch ook 's 
iets anders te proberen. En om lekker met 
hardware te rommelen. Daarop een goed 
artikel in het blad te plaatsen. En goede, 
gest ructureerde , afgeronde, gebruikers- 
vriendelijke software te ontwikkelen, of 
dat nou op een 6502, op een 68020 of op 
een "tachtiger" gebeurt, als het echt 
kwaliteit heeft, geeft dat veel bevredig- 
ing. En goed lopen doet het dan ook zeker. 
Een slim geprogrammeerde kleine processor 
als bv. de 65(C)02 heeft een prima perfor- 
mance . 

Maar met onvolledig gereedschap houdt alle 
ent h ous i as t me op. Of ombouw van een 
systeem en dan merken, dat veel program- 
ma's moeten worden geconverteerd, omdat de 
software niet compatible is.... Op zo'n 
moment zou ik even wachten met openbaar 
maken, tot dat wel in orde is. 

Naar mijn mening zou het ook goed zijn, 
als de 6502 Kenners een andere naam zouden 
gaan voeren (Hard- en Sof tware— Club Neder- 
land of zie maar). 

Naast dat er een aantal systemen stan- 
daard-support krijgen, moet er ook ruimte 
voor andere systemen zijn. Wellicht komt 
er 'n systeem bovendri j ven, dat ook die 
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standaardsupport verdient. 

(Nauw) contact realiseren met andere clubs 
lljkt mij ook best interessant. Beetje 
bundelen van Intellect? 

Wellicht zou een landelijk verband gestart 
kunnen worden, nu de HCC IBM en ex-hobby 
is gegaan. 

Een Node hoort er bij. (En dus ook weer 
ondersteuning ! ) 

En ook contact met een publicerend lande- 
lijk blad, zoals vroeger enigermate met 
Elektuur (nu wellicht met Radio Bulletin). 
Misschien eens contact met Hobbyscoop? Dat 
is goed voor toevloed van leden. 

Software moet centraal en voor de leden 
goedkoop verkrijgbaar zijn, op disk voor 
alle systemen, als harcopy en eventueel op 
band of via telefoon. En leifst ook hard- 
ware. Centraal beheerd en gecontroleerd. 

Moet ook goed in elkaar zitten, vrijwel 
(liefst helemaal) zonder bugs en gebrui- 
kersvriendeli jk, zonder dat zulks te ver- 
tragend gaat werken. Niet te vroeg uit- 
brengen, anders gaan dergelijke versies 
een eigen leven leiden... En ga niet rom- 
melen met systemen als echt volledige 
ondersteuning nog niet is te realiseren. 



En om op het begin van dit epistel terug 
te komen, als het lekker gaat binnen deze 
club, laat je je niet zo snel meer onrus- 
tig maken door voor de hobbyist niet al te 
belangrijke agressieve reklame, als zou 
iedereen een kloon moeten kopen om nog 
zinnig te kunnen computeren.. 

Ik denk, dat een club als deze belangrijk 
is en dat kan zo blijven. Liefst zou ik de 
importantie zelfs wat zien groeien. Maar 
dan moet er orde op zaken zijn. 

Wat ik hier heb opgeschreven is een poging 
tot iets positiefs. Het is vast niet vol- 
ledig . 

Ik houd mij aanbevolen voor op-, aanmer- 
kingen en aanvullingen. 



Gerard J. Reitsma 
Schouw 19 
J 26 1 LE Blaricum. 
Tel 02152-56645. 



REACT! E. 

Het grote voordeel van het feit dat je de 
redactie van een blad doet, is dat je 
eventueel als eerste op een stuk kunt 
reageren. Ik ben van mening dat het stuk 
van Gerard een aantal zeer zinvolle opmer- 
kingen bevat. Een deel van deze zaken zijn 
in het (recente) verleden ook al binnen 
het bestuur aan de orde geweest. Voorbeel- 
den hiervan zijn een naamsverandering , 
samenwerking met andere ve reningingen en 
contact met landelijke ti jdschrif ten. 

Ik wijs er nadrukkeli jk op, dat het vol- 
gende mijn persoonlijke mening weergeeft 
en niet opgevat moet worden als het stand- 
punt van het bestuur. 

In principe heeft Gerard op bijna alle 
punten gelijk. Natuurlijk moeten we probe- 
ren de systemen binnen de club een prof es- 
sionele ondersteuning te bieden en trach- 
ten software te verspreiden die foutvrij, 
gebruikersvriendeli jk en goed toepasbaar 
is. Hier komt echter het eerste probleem 
om de hoek kijken. Wij zijn een club van 
hobbyisten. Hobbyisten zijn per definitie 
enthousiast en zijn in de regel niet op 
een prof essionele manier met hun hobby 
bezig. Dat betekent dat iets uit de handen 
van een hobbyist in de ogen van de maker 
altijd foutvrij, gebruikersvriendeli jk en 
goed toepasbaar is. Na verspreiding blijkt 
dan vaak dat ,er aan het product nog iets 
mankeert. Ik vind dat niet erg want mees- 
tal is er dan wel weer een andere hobbyist 
die in staat is het product aan zijn wen- 
sen aan te passen. Wat belangrijk is in 
dezen is een goed inf ormat ie-cicuit om 
alle (t oekomstige) gebruikers van het 
euvel en de gevonden oplossing op de hoog- 
te te stellen. Ik denk dat wat dat 
betreft binnen de club mogeli jkheden ge- 
noeg aanwezig zijn. 

Een tweede punt waar ik op wil reageren is 
de verspreiding van de producten. Ik ben 
het met Gerard eens dat dit centraal en 
tegen kostprijs moet gebeuren. Ik ben 
daarom ook van plan dit vanuit mijn posi- 
tie als bestuurslid en redacteur te trach- 
ten hiervoor een goed systeem op te zet- 
ten. Maar ook hier komt weer het punt naar 
voren dat we hobbyisten zijn. De collega's 
in het bestuur hebben alien een drukke 
baan en hebben aan hun bestuurstaak mees- 
tal al de handen vol. Degene die dit uit- 
legt als een verkapte oproep voor medewer- 
kers ziet dat dan ook goed; we kunnen 
enige ondersteuning heel goed gebruiken en 
degene die denkt dat hij naast zijn dage- 
lijkse werkzaamheden nog iets in organise- 
rende zin voor de club kan doen zal met 
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open armen worden ontvangen. 

Dan kom ik tenslotte tot het derde punt, 
de ondersteuning van de systemen, Van 
oorsprong zijn wij een club van mensen die 
zelf computers bouwen. Dit betekent dat de 
bouwsels op het gebied van mogeli jkheden 
meestal lang niet kunnen concureren met de 
kant en klaar gekochte systemen. Ook een 
hard- en software ondersteuning zoals die 
door de diverse bedrijven met hun honder- 
den werknemers gedaan worden is natuurlijk 
binnen onze club niet mogelijk. Dit bete- 
kent dat we niet in staat zijn tientallen 
talen aan te bieden of operating systemen 
volgens de laatste stand der techniek met 
windows en muizen. Wat krijgt u dan wel? 
Contact met een aantal enthousiaste mensen 
die tot en men het laatste weerstandje 
precies weten hoe hun systeem werkt en 
daar uren over kunnen (en vaak ook zullen) 
vertellen. Het merendeel van deze leden is 
erg actief en het komt voor dat deze men- 
sen tot geniale oplossingen komen. Op 
bi jeenkomsten van onze club liggen vaak de 
hete soldeerbouten naast de systemen en 
worden goed werkende systemen vaak ge- 
sloopt om te kijken of met de onderdelen 
een niet goed werkend systeem aan de praat 
te krijgen is. Ik denk dat de trotse 
bezitter van een gekocht systeem dergelij- 
ke dingen liever niet met zijn systeem 
uithaalt . 

Op basis van het voorgaande wil ik de 
volgende conclusies trekken. Gerard heeft 
gelijk maar het feit dat we een club van 
hobbyisten zijn maakt dat een professio- 
nele ondersteuning en producten van een 
hoge kwaliteit niet altijd mogelijk zijn. 
Wel is het zo dat er voor een geconsta- 
teerd probleem altijd een oplossing ge- 
zocht en meestal ook nog gevonden wordt. 
De club bestaat uit knutselaars en zolang 
er knutselaars zijn heeft de club in mijn 
ogen een bestaansrecht. Wel is het belang- 
rijk dat de knutselaar met zijn producten, 
problemen en opmerkingen van zijn zolder- 
kamertje afkomt en contact zoekt met ande— 
ren. De club biedt hiervoor het blad, het 
bulletin board, de bi j eenkomsten en een 
groep enthousiaste bestuursleden die je 
bijna bij nacht en ontij mag storen om 
over de hobby te praten. Ik zou daarom 
willen uitschreeuwen: 

KOM VAN JE ZOLDERKAMERTJE EN LAAT WAT VAN 
JE HOREN! 

Gert van Opbroek 

Bateweg 60 

2481 AN Woubrugge 

01729-8636 



VRAGENRUBRIEK. 

Het is de bedoeling dat in deze rubriek 
vragen gesteld kunnen worden over alles 
wat met de club of de hobby te maken 
heeft. ledereen die een vraag in deze 
rubriek gesteld wil hebben, kan de vraag 
opsturen naar de redactie. Indien de 
vraagsteller daar prijs op stelt, kan de 
vraag ook op het Bulletin Board gezet 
worden. Antwoorden op gestelde vragen 
kunnen gericht worden aan de redactie of 
direct aan de vraagsteller. 

Aangezien het beleid van de redactie 
zodanig is, dat telef oonnuners slechts 
geplaatst worden na uitdrukkeli jke toe- 
stemming van de eigenaar, bij het stellen 
van de vraag s.v.p. vermelden of het tele- 
foonnummer vermeld mag worden. 

De heer H. Zimmermann werkt met een Junior 
met elekterminal en cassette recorder. Hij 
wil graag dat het programma Ursuspator op 
het scherm aangeeft wanneer men schaak 
staat. Hij heeft hierover de volgende 
vragen: 

In het schaakprogramma "Ursurpator" (zie 
boekje van H.G. Muller, biz. 39) is aange- 
geven dat door de variabele "00B9 EXTRA" 
(High Byte MSCHK) te zien is of men schaak 
staat. In de praktijk blijkt mij dat dit 
pas geschiedt door de zet waarmee het 
schaak opgeheven wordt. 

Is er iemand die dit ook heeft vast- 
gesteld en hoe is dit op te lossen? 

Moeten er parameters van te voren 
ingebracht worden? 

Hoe luiden de volledige namen van de 
met afkortingen aangegeven variabe- 
len? 

Reacties s.v.p. aan: 

H. Zimmermann 
Woesterbergweg 9 
8166 HE Ernst 

GEVRAAGD: 

Parallel keyboard 

E.F. v/d Broek 
le Atjehstraat 164 III 
1094 KX Amsterdam 
020-923237 
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SCR # 140 

0 ( ***** DATUM --> WEEKDAG CONVERSIE ***** GEVOP : 05/03/88 ) 

1 ( ) 

2 ( Dit is hetzelfde programma als in ' C’ gepubliceerd is in de ) 

3 ( 6502-Kenner nr 53. Deze versie is geschreven in 79-standaard ) 

4 ( Forth door: ) 

5 ( Gert van Opbroek ) 

6 ( Bateweg 60 ) 

7 ( 2481 AN Woubrugge ) 

8 ( 01729-8636 ) 

9 ( Copyright: KIM-gebruikersclub Nederland ) 

10 ( ) 

11 ( Het programma is geschreven op een JUNIOR met PROTON-SENIOR ) 

12 ( DOS. ) 

13 ( ) 

14 ( ) 

15 — > 



SCR # 141 

0 ( ***** DATUM --> WEEKDAG CONVERSIE ***** GEVOP: 05/03/88 ) 

1 ( ) 

2 ( DAG FACTOR bepaalt bij een ingevoerde datum een dagnummer. ) 

3 ( Door dit dagnummer modulo 7 te nemen, krijgen we de dag in ) 

4 ( week waarbij de zondag code 0 heeft. ) 

5 ( Het verschil tussen de dagnummers van twee data, geeft het ) 

6 ( verschil in dagen tussen deze twee data. ) 

7 ( Het nulpunt van de dagnummers ligt in 1985. ) 

8 

9 : DAG_FACTOR ( dag maand jaar — dagfactor ) 

10 DUP >R OVER > R ( Kopieer jaar en maand naar R ) 

11 1985 - 365 * SWAP 1- 31 * + SWAP 4 - + 

12 R@ 3 < ( Januari of februari ? ) 

13 IF R > DROP R > 1- DUP 4 / SWAP 100 / 1+3*4/- + 

14 ELSE R> 4 * 23 + 10 / - R> DUP 4 / SWAP 100 / 1+3*4/-+ 



15 THEN ; — > 
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# 142 

( ***** DATUM — > WEEKDAG CONVERSIE ***** GEVOP: 05/03/88 ) 

( ) 

: MOD7 7 MOD 7+7 MOD ; ( Bepaal modulo 7 ook voor < 0 ) 

: MYSELF LATEST PFA CFA , ; IMMEDIATE ( Recursie. ) 

( DATUM WEEKNR bepaalt bij de datum het weeknummer en de dag ) 

( in de week. Hierbij telt de maandag als eerste dag in de ) 

( en wordt het weeknummer bepaald door het aantal donderdagen ) 

( in het betreffende jaar. ) 

: DATUM WEEKNR ( dag maand jaar -- weekdag -nummer ) 

DUP >R ( onthoud het jaar op de return st. ) 

1 OVER 1 SWAP DAG__FACTOR ( Op welke dag viel 01/01 ? ) 

4 OVER MOD7 - ™ ( Correctie voor 01/01 op of ) 

0< IF 0 ELSE 1 THEN ( na donderdag ) 

>R >R — > ( Onthoud klad en correctie ) 
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***** DATUM — > WEEKDAG CONVERSIE ***** GEVOP: 05/03/88 ) 

) 

DAG FACTOR DUP MOD7 ( De gevraagde datum; bepaal weekdag ) 

SWAP 7 / R> 7 / - ( Het aantal weken vanaf 01/01 ) 

OVER 0= IF SWAP 7 + SWAP 1™ THEN ( Corrigeer voor de zondag ) 
r > + ( Sommeer de correctie ) 

DUP 53 = IF DROP ( Beschouw uitkomst 53 apart ) 

1 1 R> 1+ DAG_FACTOR MOD7 

5 < IF 1 ( zo, ma , di, wo; week 1 ) 

ELSE 53 ( do, vr , za ) 

THEN 

ELSE DUP ( week 0: dezelfde week als 31 12 ) 

0= IF DROP 31 12 R> 1- MYSELF SWAP DROP 
ELSE R> DROP 
THEN THEN 



SCR # 144 

0 ( ***** DATUM — > WEEKDAG CONVERSIE ***** GEVOP: 05/03/88 ) 

1 ( \ 

2 ( CONVERTEER_DATUM converteert een datum in dd mm jj of dd mm ) 

3 ( jjjj naar d ww jjjj - formaat. Bovendien wordt gecontroleerd ) 



4 ( of de ingevoerde datum bestaat. 0 — > datum ongeldig 1 — > ) 

5 ( conversie gelukt. ) 

6 

7 : CONVERTEER_DATUM ( dd ww j j [ j j ] — d ww j j j j f ) 

8 DUP 100 < IF 1900 + THEN 

9 >R > R > r ( Onthoud jaar maand dag op R-stack ) 

10 R> R(§ SWAP >R ( Haal de maand van de R-stack ) 

11 DUP 1 < SWAP 12 > OR ( Controleer de maand ) 



12 IF R> DROP R> DROP R> DROP 0 ( maand ongeldig ) 

13 

14 



SCR # 
0 ( 
1 ( 
2 

3 

4 

5 

6 

7 

8 
9 



145 

***** DATUM — > WEEKDAG CONVERSIE ***** 
ELSE R@ 1 < 



GEVOP: 05/03/88 ) 

) 



IF 



R@ 31 > OR R@ 30 > R> R@ SWAP >R DUP 2 = 

OVER 4 = OR OVER 6 = OR OVER 9 = OR SWAP 11 = OR AND OR 
R@ 28 > R> R@ SWAP >R 2 = AND 

R > R > R@ OVER >R ROT DUP >R ROT ROT ( Copieer d,m,j 

DUP >R ( Jaar nogmaals op R-stack 

DAG_FACTOR 1 3 R> DAG_FACTOR < 0= AND OR 
R > DROP R > DROP R > DROP 0 ( maand onjuist 



ELSE R > R > R@ OVER >R DATUM WEEKNR ( bepaal weekdag en week ) 



10 


DUP 


50 


> R@ 


2 < AND 


11 


IF 


R > 


DROP 


R > 1- 


12 


ELSE 


DUP 


2 < 


R > 11 > AND 


13 


IF 


R > 


1 + 




14 


ELSE 


R > 


THEN 


THEN 1 


15 


THEN THEN 


/ 







( week 52 of 53 van vorig jaar 
( week 1 van volgend jaar 
( converteren gelukt 



) 
) 
) 

— > 
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***** DATUM — > WEEKDAG CONVERSIE ***** 

LEES_DATUM leest de geformateerde datum in 
het juiste formaat op de stack 



GEVOP : 05/03/88 ) 

) 

en zet deze in ) 

) 



: LEES_DATUM ( — d m j 

Geef de datum dd/mm/jj of dd/mm/jjjj " PAD 64 EXPECT 
PAD C@ 0= IF 0 

ELSE PAD 1- ( Breek de invoer op in drieen 

3 0 DO 0 SWAP 0 SWAP CONVERT SWAP DROP LOOP 
DROP 1 



THEN ; 



) 

) 



— > 



SCR # 147 

0 ( ***** DATUM — > WEEKDAG CONVERSIE ***** GEVOP: 05/03/88 ) 

1 ( ) 

2 : DWJ BEGIN LEES_DATUM WHILE CR CON VERT EER_DATUM 

3 IF . " De geconverteerde datum is : " 

4 0 <# # # # # DROP DROP 45 HOLD 0 # # DROP DROP 

5 45 HOLD DUP 0 # #> TYPE CR 



6 


II 


De 


datum 


valt op een " 




7 


DUP 


1 


= IF . 


" maandag" 


ELSE 


8 


DUP 


2 


= IF . 


" dinsdag" 


ELSE 


9 


DUP 


3 


= IF . 


" woensdag" 


ELSE 


10 


DUP 


4 


= IF . 


" donderdag" 


ELSE 


11 


DUP 


5 


= IF . 


" vrijdag" 


ELSE 


12 


DUP 


6 


= IF . 


" zaterdag" 


ELSE 


13 


II 


zondag" THEN THEN THEN 


THEN THEN THEN DROP 


14 

15 


ELSE . 
REPEAT ; 


" 


Onjuiste datum" THEN 


CR 
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# 148 

( NOOT VAN DE REDACTIE . 

( ===================== 

( 

( De redactie streeft ernaar alle gepubliceerde programma's 
( ook op het Bulletin Board, 053-303902, beschikbaar te 
( stellen. Deze F4th screens zullen daarom ook op het BBS 
( staan. Nu doet zich het probleem voor dat niet bekend is 
( wat het beste formaat is om ze op het BBS weg te schrijven 
( zodat iedereen ze zonder al te grote problemen in kan lezen. 
( 

( Wie weet een manier om een tekstfile in F4th in te lezen en 
( wie schrijft hier eens een programma voor. 

( 

( Reacties graag sturen naar de redactie of op het BBS t.a.v. 

( de redactie van de 6502-Kenner of t.a.v. Gert van Opbroek. 

( 



) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 
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TECHNITRON TLP-12 LASER PRINTER 
- U HEEFT EIGENLJJK GEEN ANDERE KEUZE! 




■ 12 pagina’s per minuut (max.) 

m tot 10.000 afdrukken per maand 

■ 8 ingebouwde lettertypes; 

32 afdruk-combinaties 

□ unieke ’’FontMaker” service 



■ unieke ’’FormsMaker”, 
formulier- en logo service 
IB 3 ingebouwde hardware- 
emulaties 

□ flexibele in- en uitvoer van papier 



Techmtron 

DATA 



Tech nitron Data B.V. 

Zwarteweg 110, Postbus 14, 
1430 AA Aalsmeer 
tel. 02977-22456 
telefax 02977-40968 
telex 13301 
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